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REVISION HISTORY: 
38.0 14-May-82 VJH added folt to DBGSFLUSHBUF to replace 
d 


oo“ 
’ 
Seeees 
NOUE WO OONOUE WO OO 


init zation of local buffer pointer. 

38.1 3-Jun-82 VJH Removed all references to DBGSFAO_PUT and 
DBGSOUT_PUT, as these routines are now obsolete. 
Replaced them with calls to DBGSPRINT and 
DBGSNEWLINE, respectively. 

38.2 8-JUN-82 VJH Renoved reference to local output buffer in 
routine dump_entries. 

4.0 13-SEP-83 BAR Inplenented Tull functionality for 
DEF INE/KEY 
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; g 1 

s 4 1 

3 5 1 

3 § 0 1 fe * 
3 007 1 !'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 3 B08 1 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 10 S94 : : ALL RIGHTS RESERVED. ¥ 
Ps : ” 
co ae O11 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: \¢ oie 1 !* ONLY IN ACCORDANCE WITH RB F SUCH LICENSE AND WITH THE * 
; 1 1 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
> Bate 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
4 15 015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 18 Bote : = TRANSFERRED. * 
3 ; * 
; 2 Bog 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 19 001 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 31 88 Y : :. CORPORATION. * 
Py 3 f 
3 ¢ 00 ; 1 !'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 § 00 1 != SOFTWARE ON EQUIPMENT WHI’! IS NOT SUPPLIED BY DIGITAL. * 
3 4 0024 1 !# * 
0025 1 !* * 
3 $$ 80 $ ! eee RARER AAAAAAAAEAAAAAARERAAAAREAAE AAA AAAEAAAAAAAAAAAAAAAAARAEREAEEEES 
. t 

3 8 0028 1 

; 9 534 1 !e¢ 

: 0 0030 1 ! FACILITY: DEBUG 

3 1 att 1 

Hy § 0035 ' ABSTRACT: 

$ 3 0034 1 This module contains all the routines that are used to implement 

; 0035 1 the DEFINE command. This includes the parse and execute networks 

; 36 9036 and also the utility routines for managing the DEFINE symbol table. 

3 $ One ' ENVIRONMENT: VAX/VMS 

3 29 aye : AUTHOR: Richard Title, CREATION DATE: Mar 1982 

; $¢ 0042 1 ! VERSION: v3.1-001 

=” ~ 004 1 

; 644 1 ! MODIFIED BY: 

: 45 1 V. Holt, May 1982 

3 $6 1 

$ 4 1 

3 1 

3 1 

s 1 

3 1 

: 1 

s 1 

3 1 

: 1 

: 1 

3 1 
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DBGDEF INE 1b-s0 =-1984 15:3 AX-11 Bliss-32 V4.0-74 Page 
vitae 1e-8ep-19 4 10:12:28 DEBUG. SRC Secbes ite 203551 ° 
; & 059 1! 
4 61 060 1 ! TABLE OF CONTENTS: 
8 ? pel : ' 
> 64 $8 1 FORWARD ROUTINE 
; 665 064 1 DBGSCANCEL_LOC_VAL: NOVALUE, ' Cancel saved values of dot and backslash 
; 38666 065 1 DBGSDEF _SYM_ADB ' Adds a symbol to the DEFINE symbol table 
; 67 9066 1 DBGSDEF ~SYM_F IND i Finds @ symbols in the DEFINE symbol table 
; @& 067 1 DBGSDEF __SYM_REMOVE, ! Removes a symbol from the DEFIN pyndot table 
; 0068 1 DBGSDEF SYM _REMOVE_ALL, ' Remove all define symbols from a List 
; £0 0069 1 G$D DEFINE, ' Dump the define symbol table 
; rf 8 ee DRGSNPARSE DEFINE. ! Parse network for DEFINE 
ea: S072 DBCSNPARSE-DELETE.” Sores weheock ter BRAATE 
; 0073 1 DBGSNPARSE UNDEF INE, i Parse network for UNDEF INE 
: 75 0074 1 SNPARSE DEL_KEY ' Parse network for DELETE/KEY and/or UNDEF INE/KEY 
: 76 0075 1 DBGSNEXECUTE_ DEFINE, i Execution network for DEFINE 
> ie 0076 1 DBGSNEXECUTE_DELETE, ! Execution network for DELETE 
3 ne ig 4 : DOSEN Re CUTE wer INE, Execution network for UNDEF INE 
: . ' Parses a name 
3 80 0079 1 DBGSSAVE_COC: NOVALUE, ' Save . 
; 81 0080 1 DBGSSAVE_VAL: NOVALUE ' Save \ 
be) Be 0081 1 DBGSWILDCARD_NAME_MATCH, i Matches a pair of names with wildcards 
3 683 0082 1 DBGSREAD_KEY_INFO, ! Returns a pointer with key info string. 
> 84 0083 1 DUMP_ENTRY, ! Dump a define entry | 3 
:. & 0084 1 FREE_ENTRY, ! Frees up space occupied by a define entry 
; 0085 1 NAME _MATCH; ! Matches a pair of names 
ia ey, 
; 89 0088 i REQUIRE FILES: 
> 91 0090 1 REQUIRE + SRC$:DBGPROLOG, REQ! ; 
3 9 O$5¢ 1 LIBRARY ‘LIB$:DBGGEN.L32'; 
: 3 0558 : 
: 95 0207 i EQUATED SYMBOLS: 
: 97 02e9 1 LITERAL 
; 0230 1 define_local = 0, ' Code to indicate the symbol is local 
: 100 $532 thy oes ge i Code for UNDEFINESACL eee | Stovall 
° ui a = 6 * 
; 101 0938 1 undefine_all_global = 2, ! Code for UNDEF INE/ALL/GLOBAL 
: 108 8 $0 : undefine_key = 3; ! Code for UNDEF INE/KEY 
> 104 0236 1 
$ Ie? 8 8 : : EXTERNAL REFERENCES: 
: 109 0 39 1 EXTERNAL LITERAL : 
; 108 40 1 DBG$K_MAX_PR_NESTING, ' Maximum level of procedure nesting 
: 109 | SMG$_ROMOREKEYS, ' No more keys in table 
3 i? $g : SMG$_KEYNOTDEF ; ' Key is not defined 
; 118 rf } ingen KEYPAD_INPUT: BYTE 
: 114 8 “g 1 DBGS$GB~DEF INE~PTR:REF vec fort .evTE, ' Points to data structure for SET DEFINE 
3; 6115 47 1 DBG$GB_RADIX: VECTORC3, BYTE), : Radix settings 
: 116 0248 1 DBGSGL~KEY_TABLE_ID, i Used in DEFINE/KEY 
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DBGSGL_PARAM COUNT: VECTORCI, 
DBGSGL-PR_NEST_LEVEL, 
DBGSGL-SIGN_FLAG; 


EXTERNAL ROUTINE 


I NOVALUE 
DBGSPRINT_IDENTIFIER: NOVALUE, 
DBGSPRINT-VALUE: NOVALUE 
DBG POP TEND E 


DBGSNCOPY_DESC, 
DBGSNEXTLOC 
DBGSNFREE_DESC, 
DBGSNGET SYMID. 
DBGSNMAKE_ARG_VECT, 
DBGSNMATCA, 
DBGSNNEXT_WORD 
DBGSNPARSE_ADDRESS 
DBGSNPARSE EXPRESSION 
DBGSNSAVE_GBREAK BUFFER, 
DBGSNSYNTAX_ERROR, 
DBGSNTYPE_CONV, 
DBGSPREVLOC 


REL_MEMORY, 
DBGSSET—DEF INE_LVL, 
DBGSSTA_LOCK_SYMID: NOVALUE, 
DBGSSTA_UNLOCK_SYMID: NOVALUE, 
STRSCOMPARE EQ, 

DD_KEY-DEF, 
SMGSDELETE_REY_DEF, 
SMGSLIST_KEY_DEFS 
SMGSSET_DEFAOLT_STATE; 
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p-1984 16:4 DEBUG.SRCJDBGDEF I 
! 


! soune of number of params 
' Nest ng level of @ procedures 
! Print “+" before signed variable 


Copy a block of memory 

Allocate permanent memory 
Allocate permanent memory 
Convert descriptors 

Formatted ASCI utput 

Print name of Primary ‘ 
Print value of Value Descriptor 


! Pop temporary memory pool 


Push temporary memory pool 
Initialize new print Line 
Output print buffer to terminal 
Accepts a quoted string 
Copies a descriptor 
Logical successor 
Free up space occupied by a descriptor 
Obtain symid List 
Constructs a message vector 
Matches a token 
Gets the next word of input 
Parse an address expression 
Parse a value expression 
Reads a buffer of DEBUG commands 
Constructs a message vector for a syntax error 
Type converter 
Logical predecessor 
Release memory 
Manipulates data structure for 
SET DEFINE command 
Lock symid List 
Unlock symid list — 
Compares two descriptors 
Execute the DEFINE/KEY command 
Processes DELETE/KEY 
Returns key definitions from the table 
Returns the current default state 
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ao ek ee i tt ts a SS tb bs tb os 4 4 > bs 0 bd 2 ss tn > 5 sb db 5 > bd 5 5 6 _5 _» 2d __» 5 + + _b 2d 1 > 


! 
i OWN STORAGE 
OWN 
CURLOC_VMSDESC: BLOCK(12, BYTE];! Area to store a copy of the vms descriptor 
: representing dot (current location 
; GLOBAL ; 
DBGSGL_CURLOC_VMSDESC: INITIAL(O), ! Pointer to a copy of the vms descriptor 
? ¢ ' ss representing dot (current location) 
8 DBGSGL_GLOBAL DEFINE PTR, ! Pointer to head of global define List 
, 4 DBGSGL-LOCAL_BEF INE_PTR; ! Pointer to head of local define List 
08 1: 
§ 04 ' MACROS 
305 : 
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DBGDEF 


; 174 8 06 1! The following macro is just an abbreviation for some error-reporting 

; 12? 8 : : code that occurs repeatedly 

: 179 9 $8 1 MACRO report error = 

3 178 ™ 8 10 1 BEGI 

; VW mO311 1 message vect = ( 

; 180 m0 \ 1 IF dBbg$nmatch (.input_desc, dbg$cs_cr, 1) 

; Wi m0315 1 THEN 

; \8¢ : 8 \3 i dbg$nmake_arg_vect (dbg$_needmore) 

: 184 m0 1 1 dbg$nsyntax_error (dbg$nnext_word (.input_desc))); 

3 13? M 8 ; ! peruen sts$k_severe; 

ip? tea ee 

: 189 0 sf 1! Definition for the List of state names in the IF_STATE qualifier of the 

; 190 0 ¢ 1 ! Define/key command. 

: 193 a 

: 195 0325 1 FIELD 

: ba th § : SET ene F PELE = 

> 196 0328 1 

; 197 ti 44 1 DBGSL_STATE_NAME_PTR = (0, 0, 32, 0), ! Pointer to name descriptor 
3 133 83 ? : DBGSL_STATE_NAME_LINK = (1, 0, 32, 0) ! Pointer to next state name 
: 200 Be 1 TES; 

: 201 0 1 

: soe 0334 1 LITERAL 

3 $7 Oeee ' DBGSK_STATE_NAME_SIZE = 2; ! Length in long words 

: 205 0337 1 MACRO 

: $08 Sts : DBGSSTATE_NAME_NODE = BLOCK CDBGSK_STATE_NAME_SIZE] FIELD (DBGSSTATE_NAME_FIELDS) 2%; 
: 208 0340 1 
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GLOBAL ROUTINE dbg$cancel_loc_val: NOVALUE = 


! Routine Description 


Cancels the stored values for dot and backslash. This routine is 
called during the processing of the SET LANGUAGE command. 


AONMAR ERR E EE 


s aw ee 

7 ‘| 

; 18 os 

: 14 > 

18 oii 

r 1 1! Inputs 

3; 2 0 1! 

: i 8 ? : None. 

; ; 03 ¢ ! Outputs 

: 0354 1! The DEFINE symbol table is modified. 

; 226 B32? 1 le= 

; $ 0 2$ BEGIN 

3 6 035 LOCAL 

: sso b326 dummy; ! Output parameter - value not used here 
; 399 B00 Remove definition for backslash. 

; $34 O30¢ dbg$def_sym_remove (UPLIT BYTE (ZASCIC ‘ZCURVAL'), 
; $36 036 TRUE, 

: 2 0364 dummy 

ie AS ome 

; $39 3584 Remove the definition for dot. 

: 238 0369 2 dbg$def_sym_remove (UPLIT BYTE (ZASCIC "%CURLOC"), 
; 239 0370 2 TRUE, 

3; 240 0371 2 dummy 

Beg se 

: 28 Behe § Zero out the pointer to the saved vms descriptor for dot. 
3 245 0376 2 dbg$gl_curloc_vmsdesc = 0; 

> 246 0377 1 END; 


~TITLE DBGDEF INE 
-IDENT \V04-000\ 


-PSECT DBGSPLIT,NOWRT, SHR, PIC.0 


»AAA: ASCII = <7>\2CURVAL\ 3 
-AAB: ASCII = <7>\%CURLOC\ : 


~.PSECT OBGSOWN,NOEXE, PIC.2 


00000 CURLOC_VMSDESC: 
-BLKB 12 


-PSECT DBGSGLOBAL,NOEXE, PIC,2 
00000000 00000 DBGSGL_CURLOC_VMSDESC:: 
00004 DBGSGL_GLOBAL _DEFINE_PTR: : 


prcentiettierbapioniaensiiiemenemnatenante 
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-BLKB 4 
00008 DBGSGL_LOCAL_DEFINE_PTR:: 
-BLKB 4 


-EXTRN DBGSK aed PR_NESTING 
-EXTRN SMG$_ROM s 
pare SMG$~ KEVNOTDEF DBGS$GB_KEYPAD_INPUT 


x EF INE 
-EXTRN DBGS$GB_ RADIX. _DBGSGL _KEY_TABLE_ID 
«EXTRN DBGSGL_PARAM_COUN 

-EXTRN DBGSGL_PR_NEST UEVEL 

-EXTRN DBGSGL ps GN FLAG 


MEMORY 
-EXTRN DBGSGET YRERORY. DBGSGET_TEMPMEM 
~EXTRN pecsee RIM_TO_VAL 
-EXTRN DBG SPRINT, yPeSPRINT IDENTIFIER 


TEMPMEM 

-EXTRN DBGSFLUSABUF, DBGSNEWLINE 
-EXTRN DBGS$NACCEPT_ STRING 
-EXTRN DBGSNCOPY POESC. DBGSNEXTLOC 
~-EXTRN DBGSNFREE_DESC, DBGSNGET_SYMID 
~EXTRN DEGSNEUAK VEC 
-EXTRN DBGSNMATCA, DBGSNNEXT_WORD 
~EXTRN PO CSNPARSE ADDRESS 
eEXTRN DBGSNPARSE EXPRESSION 
-EXTRN DBGSN E GREAK BUFFER 

D SYNER X_ERROR 


a 
-EXTRN DBGSNTYPE CONV, DBGSPREVL 


-EXTRN DBGSREL_MEMORY, DBGSSET VDEF INE LVL 
-EXTRN DBGSSTA_LOCK_SYMID 


~-EXTRN SMGSLIST_KEY_DEFS 
-EXTRN SMGSSET "SERAOLT USTATE 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0000 90009 -ENTRY DBGSCANCEL_LOC_VAL, Save nothing 0341 | 
SE 4 C2 0000 SUBL2 #4, SP ; | 
3E pr 0000 PUSHL : 0362 
04 AE 9F 0000 PUSHAB DUMMY ; 
1 DD OO00A PUSHL #1 ; 
00000000" EF 9F 0000 PUSHAB P.AAA ; 
0000v CF 4 FB 0001 CALLS #4, DBGSDEF_SYM_REMOVE ; | 
E DD 0001 PUSHL SP : 0369 
04 AE 9F 00019 PUSHAB DUMMY ; 
01 pp Bete PUSHL #1 3 
00000000° F OOO1E PUSHAB P.AAB ; 
0000v CF 4 FB 00024 CALLS #4, DBGSDEF_SYM_REMOVE ; 
00000000" EF 04 00029 CLRL © DBGSGL_CURLOC_VASDESC i 0376 
4 0002F RET : 0377 


; Routine Size: 48 bytes, Routine Base: DBGSCODE + 0000 
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GLOBAL ROUTINE dbg$def_sym_add (syabot none. symbol_kind 


symbol _value 
9 js 


ante obal“flag, replaced_flag, message _vect 


Functional Description 


This routine adds a new symbol to DEBUG's internal DEFINE symbol 
table. It is given the symbol’s name, value, kind, and an 
indication of whether the symbol is to be local or global. 

It sets the output parameter REPLACED_FLAG to TRUE if the 

symbol replaced an existing occurence. 


Routine Inputs 


SYMBOL_NAME = Points to a counted string with the symbol name. 
SYMBOL_KIND = One of the legal kinds DEFINE ADDRESS, DEF INE_VALUE, 
and so on, (defined in DBGLIB.REQ) 
SYMBOL_VALUE = Points to the ‘'value’’ of the symbol. This may be 
an address expression descriptor, a value 


VEU OC OONOUES WO 0M 


descriptor, and so on, depending on kind. 
GLOBAL Sen - TRUE if the symbol is global, FALSE otherwise. 
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3 1 

; 1 

3 1 

; 1 

3 1 

3 1 

3 1 

: 1 

; 1 

; 1 

; 1 

3 1 

3 1 

: 1 

; 1 

8 1 

; 1 

; 1 

: } 

; 8 1 REPLACED_FLAG = This is the address of a flag to be set to TRUE if 
3 14 H : adding the symbol replaces an existing occurence 
3 4! 8 1 : MESSAGE_VECT = The address of an error message vector. 

3 ie Bs : : Routine Outputs 

BE ee, 0405 1 REPLACED_FLAG - This is the address of a flag to be set to TRUE if 
; 276 0406 1 adding the symbol replaces an existing occurence 
: 27 0407 1 of the name. 

; 278 0408 1 

; 279 0409 1 ! Routine Value 

; 280 0410 1 

3 3 pel} : An unsigned longword completion code: 

; $5 0448 1 STSSK_SUCCESS = Success. Symbol addition was successful. 

; 284 0414 1 STSSK_SEVERE - Failure. Message argument vector is constructed 

; 285 0415 1 with an indication of the error. 

; 286 0416 1 

; 287 0417 1 !-- 

; 288 0418 BEGIN 

; 289 0419 

; 290 420 LOCAL 

3 a 421 head_ptr: REF define$header, ! Points to the head of the 

; 54 4 § : appropriate DEFINE List 

; @ 4 first_entry, ! Flag saying whether this is the 
: 294 424 : first entry on the List 

; 295 0425 name: REF VECTOR (,BYTEI, ' Points to a counted string with 
; 2% 3 $ ' the DEFINE symbol name 

3; 297 prev sya_etr: REF define$entry, ! Points to a DEFINE entry 

3 4 4 3 sym_ptr: REF define$Sentry: : 

: 300 430 lee 

3 0g : : First we search for a pre-existing occurence of the symbol. 

: 30 4 

: 304 434 ! Set up pointer to the appropriate define List. 
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: 30 4 2 ir Lobal_fl | 
; -globa F) 

; 09 4 5 THEN? — 

: 38 ri 5 head_ptr = .dbg$gl_global_define_ptr 

i 310 440 headptr = .dbg$gl_local_define_ptr; 

: \¢ tts Walk through the List searching for the given name. 
; 14 ot Sym_ptr = .head_ptr Cdef$a_define_list); 

; \$ rr Set the flag saying whether there are any entries on the List. 
; 318 0448 if .sym_ptr EQL 0 

; 319 0449 THEN 

3 $9 0450 first_entry = TRUE 

3 1 0451 ELS 

: $8 Bee first_entry = FALSE; 

; 324 0454 preve sym_ptr 

3 5 0455 HILE beetye= ‘ptr Rio 0 00 

; ; 6 045 

: 7 045 te = .sym_ opr Cdef$a_name]; 

; 328 0458 “3 name_match (.symbol_name, .name) 

3 $3 0459 THE 

3 0 0460 4 BEGIN 

3 H 0461 4 

; ¢ 0462 4 14+ 

a 04635 4 ! If we find a match then replace the existing entry 
; $e 0464 4 _with the new definition. 

3 5 0465 4 

; 336 0466 4 

3 4 484 ? | First free up the space taken up by the old entry. 
; 3 434 2 if NOT free_entry (.sym ptr, .message_vect) 

: 324 0471 & RETURN sts$k_severe; 

; $g 0472 4 

; 34 04735 4 ! FILL in the fields with the new values. 

3 44 0474 4 : 

; «345 0475 4 sym_ptr Cdef$b_kind] = “syepe} kind; 

3; 346 0476 4 sym_ pte detSe_ name] = .symbol name; 

3 44 nee ? sym_ Bg ee cvalue) = at ft value; 

; re soe ag = ; 

i 49 be79 p ° 

; 350 Be80 4 ! Return success 

g So 0481 4 : 

3 26 4 ¢ 4 RETURN sts$k_success; 

3 27 : END; 

; 36 485 : Set up for the next time around the loop. 

: 35 prev_sym_ptr = .sym_ptr; 

; 358 488 syn “ptr S sya. ptr (de fhe_entry.next_tink): 

; 144 Be i END; ! While loop 

; 361 0491 ! If we get here then we have failed to find a define entry 
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: r? } with that name. Allocate a new entry and Link it in. 

3 rh Sym_ptr = dbgSget_memory (dbg$k_define_entry_size_w); 

: | ! If we are adding the first one, then it is Linked to the 
; 49 i header; else it is Linked to the last symbol on the List. 
: 199 if -first_entry 

; 500 THEN 

; 2) gg OOS tr Cdef$a_define_list] = .sym_ptr 

3 03 prev_sym_ptr CdefSa_entry_next_link] = .sym_ptr; 

3 0505 1 Fill in the fields of the newly allocated entry. 

: 050 sym_ptr (def$a_entry_next_link] = 0; 

3 0508 sym_ptr CdefSa_entry_prev_link] = .prev_sym_ptr; 

: 0509 sym_ptr Cdef$b_kind] = .symbol_kind; 

; 0510 sym_ptr [def$a_name] = .symbol_ name; 

; 73 sym_ptr Cdef$a_value] = .symbol_value; 

3 0318 Set the output parameter and return success. 

; 0515 -replaced_flag = FALSE; 

: pei RETURN sts$k_success; 

; 0518 1 END; ! dbg$def_sym_add 


007¢ 00000 .ENTRY DBGSDEF_SYM_ADD, Save R2,R3,R4,R5,R6 
09 10 ac £9 00002 BLBC GLOBAL_FLAG; 
53 00000000" EF D0 00006 MOVL § DBGS$GL~GLOBAL_DEFINE_PTR, HEAD_PTR 
07 11 0000D BRB 2$ 
53 00000000" EF DO OO000F 1$: MOVL § DBGSGL_LOCAL_DEFINE_PTR, HEAD_PTR 
52 08 A3 DO 00016 2$: MOVL (HEAD-PTR), SYM_PTR 
05 if OO1A BNEQ $ 
55 1 00 0001C MOVL #1, FIRST_ENTRY 
02 11 OOO1F BRB 
D4 00021 3$: CLRL -FIRST_ENTRY 
54 D4 00023 4$: CLRL PREV_SYM_PTR 
32 D3 99 5$: TSTL YM_PTR 
F BEQL 
56, 08 A2 DO 00029 MOVL (SYM_PTR), NAME 
56 DD 00 D PUSHL E 
04 AC DD F PUSHL  SYMBOL_NAME 
0000v CF 08 FB 0 é CALLS #2, NAME_MATCH 
26 E BLEC OS séR 
18 AC DD 0003A PUSHL MESSAGE_VECT 
52 DD 0003D PUSHL  SYM_PTR 
0000v CF FB OO03F CALLS 2, FREE_ENTRY 
4 E 0 44 BLBS RO. 6$ 
0 4 47 MOVL #4. RO 
4 0004A RET 
10 A2 08 AC 90 00048 68: MOVB § SYMBOL_KIND, 16(SYM_PTR) 
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‘ DBGSGET _MEMORY 
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AST ERTR 9$ 

HPT, BCHEAD _PTR) 


Yap , (PREV. SYM_PTR) 
REV-SYM_PTR, 4(SYM_PTR) 
SYMBOL _KIND 16(SvA, PTR) 


SYMBOL “NAME. 8(SYM_PTR) 
SYMBOL VALUE ALG PTR) 
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GLOBAL ROUTINE dbg$def_sym_find (symbol_name, returned_kind, 
returnéd_value, global_flag, 
ae message _vect) = 


; Functional Description 


‘ This routine looks up a name in the DEFINE symbol table. It 

} returns the kind of symbol and the value of the symbol. 

Routine Inputs 

: SYMBOL_NAME - Points to a counted string with the name to 

: be looked up. 

} RETURNED_KIND = The address of a ponevers. in which a code for 
: the kind of symbol will be deposited. 

: RETURNED_VALUE= The address of a longword, in which a pointer 

: to the symbol value will be deposited. 

: GLOBAL_FLAG = The address of a longword. The longword will 

‘ be filled in with FALSE if the symbol was found 
; in the local define list, and to TRUE if the 
symbol was found only in the global DEFINE List. 
! 
' 
i 
i 
i 
i 
i 
i 
i 
i 
le 


!' Routine Outputs 


RETURNED_KIND = See above 
RETURNED VALUE= See above 
GLOBAL_FCAG - See above 


Return Value 


TRUE = A matching symbol was found. 
FALSE = A matching symbol was not found. 


' TRUE for ZPREVLOC 
! Points to an entry in the 
DEFINE symbol table. 


previec.t\ap 
sym_ptr': REF defineSentry; 


BEGIN 

MAP 
symbol_name: REF VECTORC,BYTE); 

LOCAL , 
desc_copy, ' Points to a copy of a primary descriptor 
head _ptr : REF define$header, |! Points to a header block in the 

! DEFINE symbol table. 
name : REF VECTOR C,BYTE], ' Points to a syabol name. 
nextloc_flag, } TRUE for ZNEXTLOC 

‘ 

a 


Set up nextloc_flag and previoc_flag. 
prevloc_flag = FALSE; 


nextloc flag = FALSE; 
IF .symBol_name(0) EQL 8 
THEN 


BEGIN 
IF ch$eql (8, symbol_name([1] 
a : 5 UPLIT BYTE (ASCII ‘%PREVLOC')) 


Mm 6 
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BEGIN 
prevloc_flag = TRUE; 
Dummy up the symbol to look Like ZCURLOC. 
5 mbol_name = UPLIT BYTE (ZASCIC 'SCURLOC'); 
IF ch$eql Ge synbol name(1) 
; UPLIT BYTE (XASCII "ZNEXTLOC')) 
THEN . 
nextloc_flag = TRUE; 
Dummy up the symbol to look Like %CURLOC. 
symbol name = UPLIT BYTE (ZASCIC "XCURLOC'); 
END; : 
! First search the local define Lists, then the global define List. 
! When I EQL 1 we are searching local, and when | EQL 2 we are 
searching the global List. 
INCR i FROM 1 TO 2 DO 
BEGIN 


ptt hat 44 tet tert 
SODNAVE WN (OOS NOUE WI $O OONIO 


Ooowoooowowovnovnno 


06 
47 +4 1 
47 4 ! Set up HEAD_PTR to point to the appropriate List 
474 060 and SYM_PTR to point to the first entry in this list. 
5 if .i EQL 1 
0606 THEN 
+484 head_ptr = .dbg$gl_local_define_ptr 
+44 head_ptr = .dbg$gl_global_define_ptr; 
4 0611 ! Loop through all the define Lists, from the current (innermost) 
rt fy pot¢ scope outward. 
485 14 WHILE .head_ptr NEQ 0 00 
rt, 15 BEGIN ; 
rt bers sym_ptr = .head_ptr Cdef$a_define_list); 
rt gots Walk the List looking for a name match. 
491 be 0 WHILE ssym_ptr NEQ 0 DO 
49 88 1 BEG! 
49 § name = “sym ptr Cdef$a_name); 
494 IF name_match (.symbol_name, .name) 
495 4 THEN 
one 5 BEGIN 
49 $ 
498 ' We have found a match. Fill in the output 
499 ' parameters. 
500 6 : 
33! 6 
308 


m—OOe@ 


.returned_kind = .sym_ptr Coots hing); 
preturned value = .sym_ptr Cdef$a_value); 


PPE TETETETEILIOLILILIL IEEE eI eI TE TE ICISISICISICTECLICILILicreiLirereiriretrliirliir Te 
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Sans 
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Coooocoo 
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ersee=t 88s P3:18iz8 = SNS Bhi ssacbey tiesess. 1 oF 65) 
THEN | 
gg (SOE TtON = FALSE 

-global_flag = TRUE; 


Check for special symbols ZPREVLOC and %NEXTLOC. 
These are handled spec ony - we call the new 
routines DBGSPREVLOC or DBGSNEXTLOC to obtain the 
logical successor or predecessor. 


nee 


SOONAY FW (OO ODNAYL EWN HOOONOUEW 


at et me ee meee me 


prevloc_flag 
BEGIN 


' Construct a copy of the Conc cipror into 
' temporary memory so that DBGSPREVLOC 

! can play with it. Then call DBGSPREVLOC to 
give us the logical predecessor. 


F. 
HEN 


333; 


oO 
o 


dbg$ncopy_desc (.sym_ptr Cdef$a_valuel, 
desc_co 


Y. 


WN — SO OCONOVUEWN “OOONOUS WN O0@ 


itt ttt ta 


P) ‘t 
2 pmessege_vect. 
: ,Feturned_value = dbg$prevloc (.desc_copy); 
065 IF .nextloc_flag 
5 THEN 
3 BEGIN 
3 0661 
3 R906 ! Construct a copy of the descriptor into 
34 066 ! temporary genery so that DBGSNEXTLOC 
3 0664 ! can play with it. Then call DBGSNEXTLOC to 
0665 give us the logical predecessor. 


dbg$ncopy_desc (.sym_ptr Cdef$a_value], 
desc_copy, 
-mesSage_vect, 


sCoturned value = dbg$nextloc (.desc_copy); 


SSONOAR AM ODO WO 


0674 RETURN TRUE; 

+854 END; 

O37? Set up for next time around Loop. 

0679 sym_ptr = .sym_ptr (def$a_entry_next_link); 
: ? ENDI’ | lonar’ ulfile loop ~ ve * 


: Set up for the next time around the loop. 


g 
wt 
RPI MAE BEB PANNA AA NINN NNN BO NINN NINA AAA APAOAAAAS 


head_ptr = .head_ptr (def$a_next_link); 
END;~! Outer while loop 


END; ! Incr loop 
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CON 


! If we reach this point we have failed to find a 


Se 

= 
FERS Ss 
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: 690 
3 691 
: 69 

3 69 

; 565 Boge 
3 $8 695 
; 56 524 
3 208 069 

; 569 0698 
; $70 $99 
3 ef) ai 
5 238 70g 
; 574 070 

s 575 0704 
; 576 0705 
3; Sry 0706 
; 578 0707 


6A 


AA 
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eaeea tke P3iaizs «| HOES Bhi ssecbel tal ass. * cn 
' name match. bag any false. 
' Note - if we were searching for ZCURLOC or XCURVAL and didn't find 
' it that neers a dot or backslash were not defined. In this case, 
signal an appropriate error message. 
if -symbol_name(0) EQL 7 
THEN 
BEGIN 
then set (7, symbol_name(1], 7, UPLIT BYTE (ZASCII ‘%CURLOC')) 
SIGNAL (dbg$_nocurloc); 
IF CHSEQL (7, symbol_nameli}, 7, UPLIT BYTE (ZASCII "XCURVAL')) 
SIGNAL (dbg$_nolastval); 
RETURN FALSE; | 
END; ! dbgSdef_sym_find | 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 | 
| 
43 4F 4C 56 45 52 50 35 00010 P.AAC: . ASCII \%PREVLOC\ : 
43 4F 4C 52 55 43 25 O7 00018 P.AAD: ASCII <7>\%CURLOC\ : 
43 4F 4C 54 58 45 4E 23 00020 P.AAE: . ASCII NEXTL ; 
43 4F 4C 52 55 43 25 O07 00028 P.AAF: ASCII <7>\%CURLOC\ ; 
43 4F 4C 52 55 43 25 00030 P.AAG: ASCII \S%CURLOC : 
4C 41 56 52 55 43 25 00037 P.AAH: . ASCII \%CURVAL\ ; 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 ENTRY DBGSDEF_SYM FIND, Save R2,R3.R4.RS.ROR7.~ 0519. 
5B 000000006 00 9€ 00002 MOVAB DBGSNCOPY DESC, R11 : | 
5A 00000000" EF i 90009 MOV P.AAC, R10 : 
5E 04 ¢ 0019 SUBL2 #4 : | 
6 7C 0001 CLRO Baath FLAG : 0568 | 
50 04 aC 00 00015 MOVL SYMBOL NAME, RO ; 057¢ 
08 $0 91 0019 CMPB (RO), #8 : 
12 0001C BNEQ ; | 
01 Ao 8 é O01 CMPC3 #8, 1(RO), P.AAC : 0573 
BNEQ : 
56 1 00 00025 MOVL #1, PREVLOC_FLAG > 0577 | 
04 AC 08 AA 9E 00028 MOVAB P.AAD, SYMBOL NAME : 0581. 
50 04 ac 9 D 18: MOV. SYMBOL > 0583 | 
01 AO 0 1 CMPC3 «#8, T<RO). 4 AAE ; 
oe § 037 BNEQ : 
57 1 p 0 9 MOVL NEXTLOC of tas > 0587 | 
04 AC 18 AA C MOVAB +s Wt MBOL_N : 0591 | 
54 04 AC DO 00041 28: MOVL synB0t _NARE. R4 : 0623 | 
55 1 D 6 45 MOVL =so#1, I : 
§ D4 00048 38: CLRL = RB : 0605 
01 D1 OO004A CMPL 1, #1 : 
0B 12 00040 BNEG 4 : 


Page 17 
- -74 5) 
? £15: AX=11 Bliss-32 V4.0-742 ( 
1foseo-t9ge 19:18:28 EOEaUG. See Sdacbel tie .033; "ae 
ite 58 DG OL 045 move DBGSGL_LOCAL_DEFINE_PTR, HEAD_P po 
53 00000000' FF 06 38 . ROVE dBgscu GLOBAL _DEFINE_PTR, HEAD_PT : ne 
9 f A 4 Ks . | 
53 00000000" gF a3 5$ dey $NEAD.PTRD, SYM_PTR : 85 | 
52 08 iS 3 Sooe? 6s ROVE. BCSYM_PTR), NAME ; 06 3 
59 08 Ae 0080 Cuts an RARE MATCH Peaee! 
Be Y i anf SLBC) RO, N18 TURNED_K IND ; $e3 
oo00v fF ‘a $6 3 0978 ROVZBL ICSR-PTR) RE TURNED-VALUE + 0634, 
be Bt “ Ne PD 0088 BLB¢ SGLOBAL_FLAG ; aoe 
05 10 BC 04 00086 are son fee : 0643 | 
Gt 00 Gouge 7s: ROM. Ht, aGLopaL FLAG : 0682 
10 BC 86 ED Godse ont oe ee ete ' : 0652, 
5 AE DD 00094 SUS, Messe VEC ; 
16 AC PUSHAB 2 
2 ee tessa 
BF DB O00A0 or OC nev : | 
81 FB OOOA2 ROVE” —RO’_@RETURNED. VALUE g 0658 
ooonnges ge TEE eae aoa ie 
5 5 a ; 0667 
1 0 VECT 
7E D4 0008 PUSHL_ MESSAGE ; 
14 AC DD 00082 PUSHAB D sc COPy : 
ea a a {0671 
04 FB 00088 PUSHL DE PY : 
= GF DD QO0BE CALLS #1, DBGSNEXTLOC ; 0674 
00 3) pO oooc? a a r : 0679 
5 By eee Bre ie Masa 1 
:  MOVL rene OM, : 06 
62 DO OOOCF 118: - er 
= i 00 sath 128: ROvL (HEAD_PTR), HEAD_PT ; 0695 | 
53 7 . 1, 3$ : 
a 8 ft 29009 comer. Soak Ri), 7 : 0698 | 
FF69 35 07 of o0e2 EPCS A?) 1(R4), P.AAG : 9700 | 
AG ; i OFA BNEd % S o701, 
20M os F DB OOORC CALS #1 LSSSIGNAL : 0701 | 
9 00028808 BF 8 S$ vas:  FRBES Ste NHRSFIOMM,,, : 0703 | 
00006 0 OOF9 148: : | 
_— 01 AG 4 3 OFF hh #165856 0705 | 
27 AA F DD 00101 CALLS. #1. LIBSSIGNAL : 0707 | 
00028760 BF DD 107 CALLS #1, : 0707. 
000000006 00 © mits eal 


7 

DBGDEF INE ib-se -1984 00:15:3 AX-11 Bliss-32 V4.0-74 
v04 12-80-1382 90 aie DEBUG. EREIOBGDEF INE .03951 
3 7 1 GLOBAL ROUTINE dbg$def_sym_remove (symbol_name, global_fla 
; e} 109 re . : found, flag. aessage-vect! : 
; es ay 1 Functional Description 
: 585 ab 1 This routine removes a symbol from DEBUG's internal DEFINE symbol 
3 286 714 1! table. it is given the symbol's name and an 
; 38 0715 1! indication of whether the syabel is local or global. 
; 588 p78 1! It sets FOUND_FLAG to true if it found an occurence of the symbol 
; 589 0717 1! to be removed; false otherwise. 
; 590 0718 1! 
5 23) 14 ' Routine Inputs 
: 298 0721 1! SYMBOL_NAME - Points to a counted string with the symbol name. 
; 594 07 ¢ Zz GLOBAL FLAG = TRUE if the symbol is global, FALSE otherwise. 
; 595 07 1! FOUND_FLAG - This is the address of a flag to be set to TRUE if 
3; 3h 0724 1! an occurence of the symbol was found and removed. 
3 rad sf 5 : MESSAGE_VECT - The address of an error message vector. 
: 599 07 : 1 § Routine Outputs 
; 600 0728 1! 
; 601 0729 1! FOUND_FLAG =- This is the address of a flag to be set to TRUE if 
3 o0e of , : an occurence of the symbol was found and removed. 
: 604 0732 1 ! Routine Value 
; 605 07 1! 
; 606 0734 1! An unsigned longword completion code: 
: 607 0735 1! 
; 608 0736 1! STSSK_SUCCESS = Success. Symbol addition was successful. 
; 609 0737 1! STSSK_SEVERE - Failure. Message argument vector is constructed 
; 610 0738 1! with an indication of the error. 

611 0739 1! 
; 61g 0740 1 i-- 
s 61 0741 § BEGIN 
; 614 Ores 
3; 615 074 2 LOCAL 
; 616 0744 2 head_ptr: REF defineSheader, ! Points to the head of the 
; 617 0745 2 : appropriate DEFINE List — 
; 618 0746 2 name: REF VECTOR C,BYTE), ! Points to a counted string with 
; 619 0747 § : the DEFINE symbol name 
; 620 0748 next_sym_ptr: REF define$Sentry, ! Points to a DEFINE entry 
3; 621 0749 prev_sym_ptr: REF define$Sentry, ! Points to a DEFINE entry 
§ os¢ 9730 sym_ptr: REF define$entry; ! Points to a DEFINE entry 
; ra $78 ' Initialize found_flag. 
; 625 075 : 
; 666 0754 -found_flag = FALSE; 
3 Ger 0755 
; 628 0728 '+¢ 
: 629 075 ' Search for an occurence of the symbol. 
; 630 b585 leo 
; 631 759 . ; 
5 O38 3760 Set up pointer to the appropriate define list. 
: 634 Ore if .global_flag 
3; 635 076 THEN ; 
; 636 0764 head_ptr = .dbg$gl_global_define_ptr 


90:13:38 AX-11 Bliss-32 V4.0-74 Page 
12:16:4 DEBUG. SRC JDBGDEF INE .832;1 
LSE 
head_ptr = .dbg$gl_local_define_ptr; 
Loop through the define Lists. 
WHILE .head_ptr NEQ 0 DO 
BEGIN 


& 
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WW 
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Walk through the List searching for the given name. 
prev. rs ptr = 

m-ptr 5 ody ptr Cdef$a_define_list]; 

iC E ayn ptr REQ 0 DO 


coal -Sym_ptr = BY ares. nd, entry _next_link]; 


COO NIN NN NNN NI OOOO 
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; 4 

3 4 

: 4 name = .Sym_ t- a_namel; 

3 H 2 ‘nm. matc symbol name, .name) 

; 83 5 BEGIN 

; 84 5 

3 85 5 'e4 

; : : il If we find a match then remove the entry. 

; 88 5 

; : : } First free up the space taken up by the entry. 
3 91 5 IF NOT free_entry (.sym_ptr, .message_vect) 

> 664 0792 5 THEN 

; 665 0793 5 RETURN sts$k_severe; 

$ 0794 5 

3; 667 0795 5 ! Unlink the entry. 

; 668 0796 5 : 

3 9 0797 5 IF .prev_sym_ptr EQL 0 

; 670 0798 5 THEN 

s Ori 0799 5 

; OF 0800 5 ! First entry 

3 OF 0801 5 : ; 

; 674 0802 5 head_ptr Cdef$a_define_list] = .next_sym_ptr 
; 675 08035 5 

; 676 0804 5 ELSE 

; 677 0805 5 : 

: 678 0806 5 ' Not first entry. 

; 679 0807 5 : ; 

g 680 +t : prev_sym_ptr Cdef$a_entry_next_link] = .next_sym_ptr; 
; one 0810 5 IF .next_sym_ptr NEQ 0 

; 68 pat) 5 THEN 

> 684 8 \¢ 5 

3; 685 815 5 ' Not last entry 

: $88 O18 ; a tr [def$a_ent Link] t 
; next_sym_ptr Cdef$a_entry_prev_link] = .prev_sym_ptr; 
; 688 0816 

; 4689 817 ' Free up the space. 

; 690 a8 

; o3) th dbasret_ memory (.sym gett: 

3 sym_ptr = .prev_sym_ptr; 

; 0891 
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12280871382 Mor teias DEBUG. SRC JDBGDEF INE.B32;1 ~ 
Set found_flag to true. 
.found_flag = TRUE; 
END; 


} Set up for the next time around the Loop. 
prev _sym_ptr = .Sym_ptr; 
ENDS’! inner UnTLe Toop’ 

} Set up for next time around outer Loop. 


head_ptr = .head ptr Cdef$a_next_link]; 
END;~! outer WHICE Loop 


We are all done. Return success. 


RETURN sts$k_success; 
END; ! dbg$def_sym_remove 


007¢ 00000 .ENTRY DBGSDEF_SYM_REMOVE, Save R2,R3,R4,R5,R6 : 0708 

Oc BC D4 90002 CLRL © @FOUND_FLAG : 0754 

09 08 AC €9 0000 BLBC GLOBAL“FLAG, 1$ : 0762 
MOVL  § DBGSGL-GLOBAL_DEFINE_PTR, HEAD_PTR : 

52 00000000' EF 00 90009 MoV BGS 0764 

52 00000000' FF 09 O0012 18: MOVL DBGSGL_LOCAL_DEFINE_PTR, HEAD_PTR > 0766 

D 13 00019 2$: BEQL : 0770 

55 D4 00018 CLRL = PREV_SYM_PTR > 0775 

53 08 Ae 00 00010 MOVL 8(HEAD_PTR), SYM_PTR : 0776 

30 13 00021 3$ BEQL «=soO9S : 0777 

54 63 00 00023 MOVL § (SYM_PTR), NEXT_SYM_PTR : 0779 

56 08 A3 DO 00026 MOVL  8(SYM_PTRS, NAME : 0780 

56 DD 00 A PUSHL NAME : 0781 
04 AC DD 0002C PUSHL  SYMBOL_NAME ; 
0000v CF 08 FB 00 F CALLS #2, NARE_MATCH ; 
34 E9 00034 BLBC ; 

10 AC DD 0037 PUSHL MESSAGE_VECT : 0791 
53 DD 003A PUSHL . 3 
0000v CF 02 F 09 C CALLS a, FREE_ENTRY ; 
04 E8 00041 BLES =s_-RO. 48 ; 

50 04 00 00044 MOVL #4, RO : 0793 
04 00047 RET ; 

55 D5 00048 4$: TSTL PREV_SYM_PTR : 0797 
06 12 OO04A BNEQ ; 

08 A2 4 00 O04¢ MOVL —NEXT_SYM_PTR, 8(HEAD_PTR) : 0802 

65 if 09 0052 5$: MOVL § NEXT_SYM_PTR, (PREV_SYM_PTR) > 0808 | 

04 1 6$: BEQL > 0810 | 

04 Ad 3 pd MOVL PREV_SYM_PTR, 4(NEXT_SYM_PTR) : 0815 

53 DD 00058 78: PUSHL SYM_PTR : 0819 
000000006 99 01 FB 00D CALLS #1, DBGSREL_MEMORY 

5 D0 00064 MOVL §PREV_SYM_PTR, SYM_PTR ; 0820 


1EsSeee198s QO:1E:HE — YASGNE S485GRBeP A023. ite 


0c D 7 MOVL aF OUND ELA 2 0824 | 
i e D B 8$: MOVL Syme PREV “Sumpter : 335 

34 MOVE = NEXT. Poya, PTR, SYM_PTR : $30 | 

52 5 DO 00073 9S: MOVL § (HEAD_PTR), HEAD_PTR ; 0835 

Al 11 000 6 BRB $ : 0770) 

50 01 00 00078 108:  MOovL #1, RO ; 0840) 

04 00078 RET : 0841. 


; Routine Size: 124 bytes, Routine Base: DBGSCODE + 01DD 
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GLOBAL ROUTINE dbg$def_sym_remove_all (global_flag, message_vect) = 
Functional Description 


——) 9 2 


FUN “CO ODNOVE WN —OOOnNOu 


This routine removes a all symbols from an internal DEFINE symbol 
ee global_flag indicates whether to remove local or global 
ymbols. 


Routine Inputs 


GLOBAL_FLAG = TRUE for global, FALSE otherwise. 
MESSAGE_VECT = The address of an error message vector. 


Routine Value 
An unsigned longword completion code: 
STSSK_SUCCESS = Success. Symbol addition was successful. 


STSSK_SEVERE - Failure. Message argument vector is constructed 
with an indication of the error. 


BEGIN 
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4 
5 
5 
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5 
5 
5 
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85 
86 
86 
86 
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8 


; 1 
; 1 
3 1 
; 1 
; 1 
; 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
; 1 
3 1 
3 1 
3 1 
; 1 
; 1 
; 1 
3 1 
3 1 
; 1 
; 86 

; 086 

; 086 

; 74 087 

; 746 087 

3; 745 Bare 

: 746 087 

3; 747 0874 

: 748 See 

; 749 576 

: 087 

; fh 

; 880 

3 4 
3 4 
; 4 
; 8 
3 & 
; 4 
; 4 
3 & 
; & 


AL 
head_ptr: REF defineSheader, ! Points to the head of the 
: appropriate DEFINE List 
Rout oya_ptr REF define$entry, ! Points to a DEFINE entry 
sym_ptr: REF defineSentry; ! Points to a DEFINE entry 


ZSSRUS AF ete SO Ooo Worn Uw OOo On oer 


Set up pointer to the appropriate define List. 
if .global_fla 
THEN? nd ° 


es head_ptr = .dbg$gl_global_define_ptr 

P¢ head_ptr = .dbg$gl_local_define_ptr; 

eee : Loop through the define lists. 

756 WHILE .head_ptr NEQ 0 DO 

ah BEGIN 

739 Walk through the List searching for the given name. 
761 sym ptr = head ptr Cdef$a_define_list); 

7 WHIT -Sym_ptr REQ 0 DO 

e BEG! 


next_sym_ptr = .sym_ptr Cdef$a_entry_next_Link]; 
First free up the space taken up by the entry. 
if NOT free_entry (.sym_ptr, .message_vect) 


RETURN sts$k_severe; 
98 


sg 
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SANS 


3; Routine Size: 
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76 bytes, 


7 
Tb-Sen-1984 09:15: 


} Free up the space. 
dbg$rel_memory (.sym_ptr); 
Set up for the next time around the Loop. 


ptr = .next_sym_ptr; 
syn. ' inner while (eee 


Zero out the pointer to the define List. 
head_ptr (def$a_define_list] = 0; 
; Set up for next time around outer loop. 


head ptr = .head ptr Cdef$a_next_Link]; 
END;~! outer WHICE Loop 


We are all done. Return success. 


RETURN sts$k_success 
END; ! dbg$def_sym_ remove all 


001C 00000 -ENTRY 
09 04 ac €E9 00002 BLBC 
52 00000000" EF D0 00006 MOVL 
07 11 BR800 BRB 
52 00000000° fF 0 QOOF 1$: MOVL 
0 1 Boag 2$: BEQL 
53 08 Ae 0 0001 MOVL 
6 1 Bpoie 3$: BEQL 
54 63 00 OOO1E MOVL 

08 as DD 00021 PUSHL 

53 DD 00024 PUSHL 

0000v CF 9¢ 4 0026 CALLS 
04 E8 00028 BLBS 
50 04 b? OO02E MOVL 
4 00031 RET 

000000006 33 FB B03 CALLS 
58 34 0 00038 fovE 
DC 11 000 BRB 
08 as D4 00040 5$ CLRL 
52 62 00 Boe MOVL 
6 11 00 re BRB 
50 1 14 Bie 6$ MOVL 
4 00048 RET 


Routine Base: DBGSCODE + 0259 


i$ EbtauG. Sac Soacber the 059; 


DBGSDEF SYM_REMOVE_ALL, Save R2,R3,R4 


GLOBAL _FLAG, 

DBGSCL “GLOBAL DEFINE PTR, HEAD_PTR 
DBGSGL_LOCAL_DEFINE_PTR, HEAD_PTR 
gi NEAD_ PTR), SYM_PTR 


(SYM_PTR), NEXT_SYM_PTR 
MESSAGE _VECT 


#2,7 FREE_ENTRY 

RO, 4$ 

#4. RO 

“DaGsreL MEMORY 
SYM_PTR, SYM_PTR 
D PTR). HEAD_PTR 


ie 
NEXT 
|, 

( 
(HEA 
2$ 
#1, RO 
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RCJDBGDEF INE .B 


19) GLOBAL ROUTINE dbg$def_pr_entry (message_vect) = 

6 Routine Description 

+39 i This routine is called at entry to a command procedure. It allocates 
s anew define list for the procedure. 

0 ! Inputs 


! 

1 

' 

! 

' 
message_vect ad Error message vector. 
Outputs 

i The local define List is modified. 

A status code is returned. This is one of: 
! 

! 


sts$k_success = success. 
sts$k_severe - failure. 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 . 
BEGIN 
MAP 

dbg$gl_local_define_ptr: REF define$Sheader; 
LOCAL 
head_ptr: REF define$header; 


Save away a pointer to the current top-level local define header. 
head_ptr = .dbg$gl_local_define_ptr; 


WWM NIPIDNIPININININID 2 2 OO OS OS SS 


B32) } Allocate space for a new header block. 
0388 dbg$gl_local_define_ptr = dbg$get_memory (dbg$k_define_header_size_w); 
Bee. Fill in the fields of the newly-allocated header block. 
O8ee dbg$gl_ local_define_ptr Cdef$a_next_link head ptr; 
958 dbg$gl"local-define_ptr C[def$a_prev_Link 
3434 dbg$gl"local-define_ptr Cdef$a_define_ list] = "0; 
t4g Fill in the back pointer for the second entry. 
O3e$ head_ptr Cdef$a_prev_link] = .dbg$gl_local_define_ptr; 
$963 ! Increment the count of the number of levels of procedure nesting. 
840 2908 i Check for exceeding the ober A nestin eye’. f so, we will print 
841 96 i an error and abort the proces of ° Even after aborting 
seg 968 i the "a" processing. DBGSDEF 53" 't hi wit’ get called to un-do 
Bes ? i the work we have done in this Foutine to this point. 
5 71 dbg Pe abs apr nest_level = .dbg$gl_pr_nest_level + 1; 
Hs 464 ud bgSsgl_pr_nest_level GTR dbg$k_maxpr_nesting 
bcp 974 eNBEGI N 
849 75 message vect = dbg$nmake_arg_vect (dbg$_provrflow); 
50 976 RETURN sts$k_severe; 
51 097 END; 


o01C 608 
4 9494044 34 9E 0000 
3 00000006 00 43 4 
5B Sa 
000000006 99 1 fe Bote 
60 ; BO OOOTF 
04 =A € 000 g 
04 A2 39 d0 B28 
63 06 00029 
000000006 8F 63 Di 000 8 
15 15 000 
00028E70 8F DD 000 
000000006 00 01 FB QO03A 
04 ef 50 00 00041 
ee 8 bee 
50 63 00 4-984 1$ 
0000000060040 04 it 
50 01 00 0005 
04 00056 


; Routine Size: 87 bytes, Routine Base: DBGSCODE + 02A5 


i Ese QUIS: UMGI MLSE Nt OT, Paget 


; § 144 dbg$gl_param_count [.dbg$gl_pr_nest_level] = 0; 
; & 44 RETURN sts$k_success; 
; 5 9 END; ! dbg$déf_pr_entry 


.ENTRY DBGSDEF_PR_ENTRY Save, R2,R3,R4 
MOVAB DBG$GL_COCAL_DEF EF INE Ry” 
MOVAB DBGS$GL_PR_NEST 

D G$GL-LOTAL DEFINE. sf HEAD_PTR 


CALLS #1, DEGSGET MEMORY 
VL RO. bgeset reg cAt _DEF INE_PTR 
HEAD _PTR, TRO) 


4(R 
MOVL RO, 4(HEAD PTR) 
INCL DBG$GL —PR_NEST_LEVEL 
CMPL DBGSGL_PR_NEST_LEVEL, #DBG$K_MAX_PR_NESTING 


BLEQ 
PUSHL #167536 


CALLS #1, DBGSNMAKE_ARG_VECT 
MOVL RO, SRESSAGE . VECT™ 


MOVL § DBGS$GL_PR_NEST_LEVEL 
CLRL DaGSGL- “PARAM_ cOtnY ERO. 


" 7 
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: of ! GLOBAL ROUTINE dbgSdef_pr_exit (message_vect) = 

3 38 i ; Routine Description 

: 861 1 This routine is called at the exit from a command procedure. 
: 50 : It removes the define List for that procedure. 

; Hg ; Inputs 

: £08 : message_vect - An error message vector 

; 868 i ; Outputs 

: 870 1! The local define List is modified. 

3; 871 1! A status code is returned: 

3 HG 1! sts$k_success = success 

: a7 ' : sts$k_severe - failure 

3 875 "BEGIN 

: 877 1008 MAP 

; 378 Ir dbg$gl_local_define_ptr: REF defineSheader; 

; 880 1005 LOCAL 

; 881 1006 head_ptr: REF define$header, ! Saved pointer to head of List. 
; 88 1007 next_sym_ptr: REF define$entry, ! Points to a define entry 
; tt 108 sym_ptr: REF define$entry; ! Points to a define entry 
1 HH + 94 Decrement the count of levels of procedure nesting. 

3 887 101 dbg$gl_pr_nest_level = .dbg$gl_pr_nest_level - 1: 

: ase 1018 iF ,ddabaT pr est. level L s°0" = ae 

; 890 1015 BEGIN 

: +4 Ha es *DBGDEF INE\DBGSDEF _PR_EXIT"); 

; $98 1018 ; 

: B38 1939 } Save away a pointer to the top header block. 

3 896 1081 head_ptr = .dbg$gl_local_define_ptr: 

; 343 1098 Cut out the first entry. 

; 5 iB dbg$gl_local_define_ptr = -dbg$gl_local_define_ptr Cdef$a_next_Link); 
: 90 10 

; $08 \} 3 : Free up the space being occupied by the List. 

> 905 1980 : 

: 208 193 Obtain a pointer to the define List. 

; S's 4 1938 Sym_ptr = .head_ptr (def$a_define_list); 

; aig 1035 Free up space occupied by the header block. 

; a 1037 dbg$rel_memory (,head_ptr); 


j 


re 
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GDEF INE 16-Sep-1984 00:15:3 AX-11 Bliss-32 V4.0-74 Page 28 
vive te 12-8681 382 90:18 ig DEBUG. SRCTOBODE Ie .039s1 ’ (3 
Walk through the List freeing up each entry. | 
WHILE ssymptr NEQ 0 DO 
BEG! 


ww 


tt 
Py 
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Obtain a pointer to the next List entry. 
next_sym_ptr = .sym_ptr Cdef$a_entry_next_Llink]; 
Free up the space taken up by the name and value. 
[ NOT free_entry (.sym_ptr, .message_vect) 

RETURN sts$k_severe; 
Free up the space occupied by the entry. 


dbg$rel_memory (.sym_ptr); 


wo 


Set up for next time around. 


SAS 


sym_ptr = .next_sym_ptr; 
END: 


RETURN sts$k_success; 
END; ! dbg$def_pr_exit 


DWDODOOOOOOOOODODOOODOOODOODDODONDO0O 


WAW 
oon 
FUN — OOONOAUNE WN" O OONOUES WN" OO 


eee ee ee ee ee ee ee ee ee 
So SSSS33S3S3SS333F 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


24 47 42 44 SC 45 4E 49 46 45 44 47 42 44 19 QOO3E P.AAI: ASCII <25>\DBGDEFINE\<92>\DBGSDEF _PR_EXIT\ : 
54 49 58 45 SF 52 50 SF 46 45 44 00040 : 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
003¢ 00000 ENTRY DBGSDEF_PR_EXIT, Save R2,R3,R4,R5 ; 0982 
55 000000006 00 9€ 90002 v DBGSREL “MEMORY ; 
54 00000000' EF 9E 00009 DBGSGL_COCAL DEFINE PTR, R4 : 
15 000000006 00 F4 0019 SOBGEQ DBGS$GL~PR_NEST_LEVEL, 1$ : 1012 
00000000' EF 9F 0001 PUSHAB P.AAI > 1016 
1 DD 0001D PUSHL #1 ; 
00028362 8F DD O001F PUSHL #164706 ; 
000000006 00 3 FB 00025 CALLS #3, LIBSSIGNAL ; 
0 64 DO 0002C 18: MOVL DBGSGL_LOCAL_DEFINE_PTR, HEAD_PTR : 1021 
4 94 DO 0002F MOVL  @DBG$GC_LOCAC DEFINE PTR, - > 1025 
DBGSGL_COCAL DEFINE PTR ; | 
52 08 Ag DO 00032 MOVL (HEAD-PTR), SYM_PTR ; 1033, 
50 DD 00 PUSHL HEAD_PTR > 1037 | 
65 9} FB 00 CALLS #1, BBGSREL_MEMORY 3 
2 p 0038 2$ TSTL  SYM_PTR > 1041, 
1 030 BEQL ; | 
53 62 0 0 F MOVL § (SYM_PTR), NEXT_SYM_PTR > 1046. 
04 AC DD de PUSHL MESSAGE_VECT : 1050 
52 DD 0004 PUSHL SYM_PTR ; 


8 8 
DBGDEF INE 16-Sep-1984 215: - .0- 
tie 14 6-Sep 00:15:3 AX-11 BLigs-32 V4.0-74 


s- 
14-Sep-1984 12:16:4 DEBUG. SRC JDBGDEF INE .B32;1 
0000v CF 9¢ FB 00047 CALLS ace FREE_ENTRY 
4 EB 0004 BLBS RO, 3$ 
0 04 0 4f nove #4, RO 
DD 3$ PUSHL SYM_PTR 
$5 FB CALLS #1, DBGSREL_MEMORY 
2 p MOVL NEXT_SYM_PTR, SYM_PTR 
DE 11 5B BRB 
50 01 DO 0005D 4$: MOVL #1, RO 
04 00060 RET 


; Routine Size: 97 bytes, Routine Base: DBGSCODE + O2FC 
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1e-8ep-19 4 $0 Teias DEBUG. SRC seeses tie .0$5:1 9° 10) 
941 06 GLOBAL ROUTINE dbg$dump_define (string, addr_flag, global_flag, type_flag, | 
ae 6 a found status, message_vect) = 
966 ; Routine Description 
38 This routine dumps the DEFINE symbol table. It is called from 
ace the SHOW SYM/DESINED command. 
949 Inputs 
950 . 
string - A string representing the defined symbol 
whose definition the users wants to see. 
Asterisk may be used as a wild card character. 
addr_flag - Says to print the thing that the defined symbol 


is bound to. 
global_flag -A frag set to TRUE if the user is requesting 
globally defined eyabets: false otherwise. 
type_flag - pays to print the kind of defined ge 
found_status - This is used in the case of SHOW SYMBOL xxx, 


OOONOUS wr 


& 


where we have previously called the 
DBGSSTA_SHOSYMBOL routine. This flag is set to: 
TRUE: DBGSSTA_SHOSYMBOL has already matched some 


ae 
_— 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

96 : symbols, so don't signal an error if this 
; routine does not match anything. 
: FALSE: DBGSSTA_SHOSYMBOL has not matched any symbols. 
message_vect - An error message vector. 

i 

i 

} 

} 

i 

i 

} 

- 
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Implicit Inputs 


9 

970 94 The DEFINE symbol table. 
971 95 
44 38 Output 
974 98 The contents of the DEFINE symbol table are displayed at the terminal. 
975 A condition code is returned, which is one of: 
976 0 STSSK_SUCCESS = Routine was successful 
977 1 STSSK_SEVERE - Routine was not successful. Error message vector 
978 4 constructed. 
979 
980 4 Side Effects 
981 5 
98 $ None. 
98 - 

84 3 BEGIN 
985 LOCAL 

86 0 found 


True if we find any matches 
A pointer to a define list header 
Points to a symbol nam 


flag 
head ptr: REF detineSheader, 
‘ e 
A pointer to a define List entry 


name: REF VECTORL BYTE 
sym_ptr: REF defineSentry; 


Initialize found_flag 
found_flag = FALSE; 


! Set up a pointer to either the head of the global define table or 
the head of the local define table. 


Oe ed od etd = SOOO OOOOOOO 


H 1 
: 1 
S 1 
; 1 
; 1 
. 1 
; 1 
; 1 
; 1 
e 1 
3 1 
oe 1 
; 1 
; 1 
6 1 
° 1 
: 1 
. 1 
a 1 
; 1 
1 
; 1 
; 1 
3 1 
; 1 
° 1 
; 1 
; 1 
; 969 1 
; 1 
3 1 
; 1 
° 1 
e 1 
° 1 
oe 1 
3 1 
; 1 
3 1 
; 1 
; 1 
$ 1 
; 1 
: 1 
: 1 
$ 1 
; 1 
; 1 
; 1 
; 1 
3 1 
3 1 
3 1 
; 1 
3 1 
; 1 
; 1 
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16-Sep-1984 00:15:3 AX-11 Bliss-32 V4.0-74 Page 31 
12-80 8- 1884 90 1aie8 DEBUG. SRC IDBGDEF INE .B3 31 . 18) 
IF .global_fla 
THEN? = 8 

head ptr = .dbg$gl_global_define_ptr 

head ptr = .dbg$gl_local_define_ptr; 
Loop through the define tables. 


WHILE ,head_ptr NEQ 0 DO 
BEGIN 


Loop through the symbols in the define table. 


sym tr = .head ptr Cdef$a_define_list); 
W se a REQ 0 DO 


Pick up the name and determine if it is a match. 


name = “Sym_ptr Cdef$a_name); 
eat dcard_name_match (.string, .name) 


BEGIN 
EL 
search_block; 


print_flag, 

temp_Read_ptr: REF define$header, 
temp_name, 

temp_sym_ptr: REF define$entry; 


found_flag = TRUE; 
search_block: BEGIN 
Check whether we have already printed the name. 


agit eet fleg 
, 1D, Rood ptr = .dbg$gl_global_define_ptr 


ELS 
temp_head_ptr = .dbg$gl_local define ptr; 
WHILE. temp_head_ptr NEG 8 Bo ss - 


temp _sym_ptr = .temp head ptr Cdef$a_define_list]; 
WHILE "Ean, sya ptr REQ 0 Bo 
rot tr EQL t 
.temp_sym_ptr -Sym_ptr 
THEN P_SyM@_p ymp 


+3 Hy 

PE nt_flag = TRUE; 

brave search_block; 
temp_name = .temp_sym_ptr(def$a_name); 
IF name_match (.temp_name, .name) 


BEGIN 


[ 


8 
GDEF INE bese -1984 00:15:3 AX-11 Bliss-32 V4.0-74 Page 32 
viveete ee aet) Pak aed CHR SL Ta Tae #43 
; 1055 1179 rint_flag = FALSE; 
5 19 $ 1180 3 EAVE search_block: 
: 9 8 i" : t ~— Cdef$ t_link] 
3 emp_sym_ptr = .temp_sym_ptr Cdef$a_entry_next_Llink]; 
: 1059 11 4 END; 
; 1309 1 : 7 temp_head_ptr = .temp_head_ptr Cdef$a_next_link]; 
: 106 11 : END; ! search_block 
g 1968 11 $ 
; 1064 1188 IF .print_flag 
: 1968 1190 ene? ( ddr_fl fl ) 
5 ump_entry (.sym_ptr, .addr_flag, .type_flag, .message_vect); 
; 1989 1191 4 END; _ . —_ ii it . 
: 1068 1136 4 
3; 1069 1193 4 ' Set up for next time around Loop. 
; 1070 1194 4 : 
; 1071 1195 4 sya_ptr = .sym_ptr Cdef$a_entry_next_link]; 
: 1976 1136 END; ! inner while loop 
3; 107 119 
s 1074 1198 ' Set up for next time around loop. 
: 1075 1199 ' 
; 1076 1500 head_ptr = .head ptr Cdef$a_next_Link]; 
: 1977 ! } : END; ! outer while loop 
3 44 4 1208 If we did not find any matches, signal an informational to that effect. 
; 1081 \$0? ‘ IF (NOT .found_status) AND (NOT .found_flag) 
3 See 1206 THEN 
; 108 1207 SIGNAL (dbg$_symnotfnd, 1, .string); 
> 1084 1508 
; 1085 1209 RETURN sts$k_success; 
> 1086 1210 1 END; ! of DBGSDUMP_DEF INE 
07FC 00000 -ENTRY DRCSOUMP_DEF INE. Save R2,R3,R4,R5,R6,R7,R8,-; 
5A 00000000° 4 9E 0000 MOVAB DBGS$GL_GLOBAL_DEFINE_PTR, R10 3 
9 04 0000 CLRL FOUND _FLAG 3 
05 oc AC €9 i tteg BLBC GLOBAC_FLAG, 1$ 3 
55 i oY isa paee DBGSGL_GLOBAL_DEFINE_PTR, HEAD_PTR 3 
55 04 AA D G01 1$: MOVL DBGSGL_LOCAL_DEFINE_PTR, HEAD_PTR 3 
74 ~«1 18 2$: BEQL : 
54 08 AS 00 OOO1A MOVL §§ 8(HEAD_PTR), SYM_PTR : 
69 13 00 3 3$: BEQL 3 
58 08 A& 00 8 MOVL 8(SYM_PTR), NAME : 
58 0D 4 PUSHL NAME $ 
04 AC 0D B858 PUSHL STRING 3 
0000V F 9¢ 4 3 CALLS #2, DBGSWILDCARD_NAME_MATCH 3 
3 E ‘ BLBC RO, 11$ ; 
9 01 4 S MOVL #1, FOUND_FLAG 3 
5 oc AC E BLBC GLOBAL FLAG 4$ 
3 A 00 99 8 MOVL DBC GL“GLOBAL_DEFINE_PTR, TEMP_HEAD_PTR : 
4 11 000358 BRB $ : 
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GDEF INE 16-Sep-1984 00:15:3 AX-11 Bliss-32 v4. Page 33 
Mirae eases tSRe 13:28 «| HOSE Shi ssees ee tneo 28s... 9 83 
53 04 AA D 3D 4$: MOVL PBGSGL_LOCAL_DEFINE_PTR, TEMP_HEAD_PTR : 1163 
2— 1 41 5$: BEQL si + 1164 
52 08 A p 4 MOVL §(TEMP_HEAD_PTR), TEMP_SYM_PTR : 1166, 
47 6$: BEQL $ + 1167) 
54 pj 49 CMPL TEMP_SYM_PTR, SYM_PTR + 1169. 
: 4C BNEQ 7 : | 
57 1D 0 4 MOVL #1, PRINT_FLAG : 117 
i 11 0005 BRB 10g + 1173. 
56 08 A2 00 00053 7s: MOVL &(T Temp. Sy. PTR), TEMP_NAME £1175, 
0140 8F BB 0005 PUSHR #*M<R6- + 1176 
0000v CF FB 05 CALLS 2, “NAME “MATCH : 
04 E9 0006 BLEC =O sé : 
D4 0006 CLRL —— PRINT_FLAG : 1179 
0A 11 00065 BRB 10$ + 1180 
52 62 DO 00067 8$: MOVL § (TEMP_SYM_PTR), TEMP_SYM_PTR : 1182 
Dg 11 0006A BRB : 116 
53 63 D0 9006¢ 9$: MOVL (TEMP_HEAD_PTR), TEMP_HEAD_PTR + 1184 
DO 11 O06F BRB 5$ + 1164 
10 57 €9 00071 10$: BLBC PRINT FLAG. | 11$ + 1188 
18 AC DD 00074 PUSHL MESSAGE | V + 1190 
10 AC OD 00077 PUSHL YPE_F PERG ; 
08 AC DD 0007A PUSHL ADDR FLAG ; 
54 DD 0007D PUSHL SYM_PTR 3 
0000v CF 04 FB 0007F CALLS #4, DUMP_ENTRY : 
54 64 D0 00084 11$: MOVL (SYM. i SYM. PTR + 1195 
95 11 00087 BRB : 1136 
55 65 00 90089 12$:  MOVL (HEAD_PTR), HEAD_PTR : 1200 
8A 11 0008C BRB 2$ : 1130 
15 14 AC E8 OOO8E 138 BLBS —- FOUND_ STATUS 14$ + 1205 
12 59 €8 0009 BLBS FOUND FLAG, 14$ : 
04 AC DD 0009 PUSHL STRING : 1207 
01 DD 00098 PUSHL ; 
00028688 8F DD 0009A PUSHL #165563 : 
000000006 00 03 FB O000A0 CALLS #3, LIBSSIGNAL : 
50 01 00 OOOA7 148: MOVL #1. RO : 1209 
04 OOOAA RET : 1210 


; Routine Size: 171 bytes, Routine Base: DBGSCODE + 035D 
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1908 GLOBAL ROUTINE dbg$nparse_define (input_desc, verb_node, message_vect) = 
090 Functional Description 

O36 This is the top-level parse network for the DEFINE command. 

O38 Routine Inputs 

0 input_desc - A string descriptor for the remaining input. 

b99 verb_node - A pointer to the verb node for DEFINE, which 
098 will be the top-level node in the command 
099 execution tree. 
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message_vect - An error message vector 
Routine Outputs 


A ae execution tree is constructed starting at the verb 
node: 


+ VERB | => | NOUN {| => | NOUN: =>... 


The DBGSB_VERB COMPOSITE field contains an indication of the 

‘kind’ of DEFINE. 

In each noun node, all three fields contain information 

about the symbol being defined: 

DBGSL_NOUN_VALUE - Points to a counted string with the name of 
the symbol (the left-hand-side of the 


DBG$L_NOUN_VALUE2 - Points to some kind of descriptor or 
counted string with the right-hand-side 
of the definition. 

DBGSL_ADJECTIVE_PTR = Contains an indication of whether the 
definition was local (=) or global (==). 

The string descriptor is updated to point past the 

inet that has been parsed. A completion code is returned: 

STSSK_SUCCESS = The input was successfully parsed. 

STSSK_SEVERE - There were errors during the parse. An error 
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5 message vector is constructed and returned 

; in message_vect. 

5 BEGIN 

5 input_desc : REF BLOCK C,BYTE], ! The string descriptor for the 
5 ' remain input. 

; verb_node : REF dbg$verb_node; ! The verb node with the DEFINE verb. 
6 BIND 

6 dbg$cs_address = UPLIT BYTE (7, ‘ADDRESS'), 

6 dbg$cs_command = UPLIT BYTE (7, ‘COMMAND'), 

6 dbg$cs_key = UPLIT BYTE (3. *KEY'), 

64 dbg$cs_local = UPLIT BYTE (5, *LOCAL*) 

65 dbg$cs_procedure = UPLIT BYTE (9, *PROCEDURE'), 

06 dbg$cs_string = UPLIT BYTE (6. *STRING'), 

6 dbg$cs_value = UPLIT BYTE (5, "VALUE'), 


dbg$cs_comma = uP 
dbg$cs_cr = uP 
dog$cs_dblquote = U 
dbg$cs_equal = U 
dbg$cs_left_paren = U 
dbg$cs_slash = U 


LOCAL 
addr_exp_desc: REF dbg$aed, 


define_kind, 
first_Etime, 


global_flag, 


new_noun_node : REF dbg$noun_node, 
noun_nod REF dbg$noun_node, 


16:4 DEBUG.SR 


pe } 99:13:38 AX-11 Ot igeerg V4.0-74 


DBGDEF INE .832;1 


comma), 
car_return), 
dbl quote), 
equal), 
Lett parenthesis). 


Points to an address 
expression descriptor 

Holds “kind” of gyadol 

True during parsing of first 
element of comma List. 

Will be true on == 

Another pointer to a noun node 

Pointer to a noun node 

Points into input string 


ode : 
ptr: REF VECTORC,BYTE), 


String descriptor 
Pointer to symid List 


H stg.desc: dbg$stg.d 
s esc: s esc, 
o syatd Lists _ 
4 Special case check for DEFINE/KEY. And save the input descriptor. 
; ! 
9 ch$move(8, .input_desc, stg_desc) 
94 IF dbg$nmatch (stg_desc, dbg$cs_slash, 1) 
THEN 

4 

4 

4 

3 


IF dbg$nmatch (stg_desc, dbg$cs_key, 1) 
THEN . s. . . 


oo 
o~ 


BEGIN 

CHSMOVE(8, stg_desc, .input_desc); 

status = dbg$nparse_def_keyt.input_desc, .verb_node, .message_vect); 
ion -Status 


3 


RETURN .status; 
A sts$k_success; 
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! Initialize giovet flag. The default is /GLOBAL, so the flag is 
} initially TRUE. 
global_flag = TRUE; 


First look for the qualifier on the DEFINE command. 


co 
~ 


WHILE  dbgSnmatch (,input_desc, dbg$cs_slash, 1) DO 
SELECTONE TRUE OF 
SET 


eee ec Dd ed ed ed ed od 


Cdbg$nmatch (.input_desc, dbg$cs_address, 1)] : 
BEGIN 


dbg$set_define_lvl (override define); 
gbosgb_det ine ptr Cdefine_only] = define_address; 
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Cdbginastch (. input desc, dbg$cs_command, 1)] : 


dbg$set_define_lvl (override define); 
dbgsgb_def ine ptr (define only] = define_command; 


0-74 Page 36 
£039: 290 43) 


/GLOBAL is not allowed since it is a no-op. 


' 
i 
! Cdbg$nmatch (.input_ desc, dbg$cs_global, 1)] : 
: global_flag = TRUE; 


Cdbg$nmatch (.input_desc, dbg$cs_local, 1)]: 
global_flag = FALSE; 


! Cdbg$nmatch (.input_desc, dbg$cs_procedure, 1)] : 
i" dbg$gb_define_ptrLdefine_only] = define. procedure; 


! Cdbg$nmatch (.input_desc, dbg$cs oe 19] : 
i" dbg$gb_define_ptrCdefine_only] = detine_string; 


Cdbg$nmatch (.input_desc, dbg$cs_value, 1)] : 
BEGIN 


dbg$set_define_lvl (override define); 
Gbasgb_def ine_ptr Cdefine_onTy] = define_value; 
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COTHERWISE) : 
report_error; 


TES; 
END; 


define_kind = .dbg$gb_define_ptr Cdefine_only); 


WN —O Doe 
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' Now that we have decided what kind of DEFINE this is, 
put that piece of information in the verb node. 


verb_node [dbg$b_verb_composite] = .define_kind; 


MEW —O0eOn 


! Now that we have Gol fected the qualifier, we loop through 
! the List of definitions (e.g, 

' DEFINE A=B,C=D,E=F y 

! Most of the time there will only be one in the List, but 
: we are prepared to handle a List here. 
f 


irst_cime = TRUE; 
WHILE TRUE DO 
BEGIN 


ws & 
ooo 


! Check for end-of-line. | 
: It is an error at this point. 


ee el em ee ee et ee ee ee ee ee ed ae ed od dd ed = 2d 
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IF dbg$nmatch (.input_desc, dbg$cs_cr, 1) 
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THEN | 
greet e t = dbg$nmak t (dbg$ dé ) 
om ec = nm r é 
RETURN  Sts8k_severe; rps theses ty ent 


Go G0C ooce 
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Allocate a noun node to hold the definition 


+ new noun node = dbg$get_tempmem (dbg$k_noun_node_size); 
9 ! We must Link in the noun node. If this is the first definition 
9 ! in the List, it is attached to the verb node; otherwise it 
; is attached to the previous noun node. 
IF .first_time 
THEN 
BEGIN 
first_time = FALSE; 
0 verb_node Cdbg$l_verb_object_ptr] = .new_noun_node; 
0 noun_node = .new noun_node; 
9 noun_node Cdbg$l_noun- Link) = 0 
0 END 
0 
0 LSE 
BEGIN 


noun_node Cdbg$l_noun_link] = .new_noun_node; 
noun_node = .new_noun_node; 
noun noes Cdbg$l“noun“Link) = 0 


! Now we read the name that is —— defined and store a 
! pointer to the counted string in the value field of 
the noun node. 


IF NOT dbg$nread_name (.input_desc, 
noun_node Cdbg$l_noun_valued, 
-mesSage_vect 

THEN 

RETURN sts$k_severe; 


Look for =. 


if NOT dbg$nmatch (.input_desc, dbg$cs_equal, 1) 
report_error; 
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! We use the ‘‘adjective’’ field to keep an indication 
of whether the user specified /GLOBAL. 


Hh eye bet flag 
noun_node [dbg$l_adjective_ptr] = .efine_global 


LSE 
noun_node (dbg$l_adjective_ptr] = define_local; 
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! Now we collect the right-hand-side of the definition. 
! What we are looking for depends on the qualifier that 


: was specified. 


CASE def ine_kind FROM define_lowest TO define_highest OF 


Cdefine_address] : 
BEGIN 
LOCAL 
status, 
temp_addr_exp_desc; ! Filled in by AEI 

Call the address expression interpreter. 

Status = dbg$nparse_address (.in ut_desc, temp_addr_exp_desc, 
.dbgs br srilderte. recta. iheue . é 
tokendk_term_comma, .message_vect); 

IF .status NEQ sts$k_success AND .status NEQ sts$k_warning 

RETURN sts$k_severe; 

Copy the descriptor. 

dbg$nget_symid (,temp_addr_exp_desc, symid_list, .message_vect); 

cPezncepy Sane (.temp_addr_exp_ desc, addr_exp_desc, .message_vect); 

dbg$sta_lock_symid (.Symid_Llist); 


! FILL in the “‘value2"’ field of the noun node with 
a pointer to the address expression descriptor. 
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noun_node Cdbg$l_noun_value2) = .addr_exp_desc; 


Ldet ine command, define_string] : 


EGIN 


! In these cases we want to pick up a quoted string. 
First we pick up the leading quote. 


' 

: 

1 

— dbg$nmatch (.input_desc, dbg$cs_dblquote, 1) 
report_error; 


ONIN SNS 


} Now call a routine to accept the string. 

iF NOT dbg$naccept_string (.input_desc. 
noun_node [Cdbg$l_noun_valie2), 
obask dblquote, 


.message_vect, 
TRUE) 


THEN 
RETURN sts$k_severe; 
END; 
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(define procedure) : 
BEGT 


! for this case we want to pick up a sequence of DEBUG 
' commands inside of parenthesis. 

First we eat the left paren. 

if NOT dbg$nmatch (. input desc, dbg$cs_left_paren, 1) 


report_error; 
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! Call the routine which picks up a sequence of 
! DEBUG commands. 


' 

IF NOT dbg$nsave_break buffer (.input_desc, 
noun_node CabgSt_noun_ valued; 
-mesSage_vect 


RETURN sts$k_severe; 
END; 
(define value] : 
BEGIN 


LOCAL 
status, 
temp_desc: REF dbg$dhead; ! Variable to hold a 
! pointer to a value descriptor 


! For this case we just call the expression interpreter 
to parse a language expression. 


status = Deerperse expression (.input_desc, 

.dbg$ 5fedtxtdbgsb radix_input), 

ane eSc, tokenSk_fterm comma, .message_vect); — 
IF _.status NEQ sts$k_succeSs AND .status NEQ stS$k_warning 


RETURN sts$k_severe; 


! If the descriptor is volatile, then we cannot save it. 

! First try to make it into an ordinary value descriptor. 

! If that attempt fails, then report an error message saying 
' that we cannot save the value (this should only happen 

! for very large values, e.g., long strings). 


gj,tene dene Cdbg$b_dhead_type] EQL dbg$k_v_value_desc 
dbg$prim_to_val(.temp_desc, dbg$k_value_desc, temp_desc); 
temp_desc [dbg$b_dhead_type] EQL dbg$k_V_value_desc 


BEGIN 

-message_vect = epqsnaske org. vect (dbg$_unasavval, 
1, .noun_nodeldbg$l_noun_value)); 

oo sts$k_severe; 
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3 1¢ } ; 2 } Copy the descriptor into permanent memory. 
3 14 ¢ 1555 4 IF dbg$nget_symid( 

3; 14 1 § & -temp_desc, 

3; 14 1 4 symid_List, 

3; 14355 1 8 4 -message_vect) 

3; 14 1 4 THEN 

3 14 1560 4 IF dbg$ncopy_desc ( 

; 1438 1561 4 .temp_desc 

: 1439 1 66 4 noun_fnode Cabg$1_noun_value2, 
: 1440 1565 4 -message_vect 

3 1441 1290 4 THEN 

3 1206 1565 4 dbg$sta_lock_symid (.symid_Llist) 

3 144 1306 4 ELS 

3 14446 1567 4 RETURN sts$k_severe 

> 1445 1568 4 

3 rig | 1569 4 RETURN sts$k_severe; 

3 144 1570 4 

3; 1448 1571 END; 

3 1449 1376 

; 1450 157 CINRANGE ,OUTRANGE) : 

3; 1451 1574 4 BEGIN 

3 1628 1575 4 foperterrers 

3; 145 1576 END; 

3; 1454 1577 

3 1455 1378 TES; 

3 1628 157 

3: 145 1580 

3; 1458 1581 ! Check for exhausted input. If so, exit the Loop. 
3 1459 1286 : 

3 1460 158 IF .input_desc Cdsc$w_length] EQL 0 

3 1461 1584 

3 re «| 1585 EXITLOOP; 

3 146 1288 

3 1464 158 ! Now check for comma, indicating there are further elements in 
3 1465 1588 ! the List 

3: 1466 1589 : 

3 1467 1590 IF NOT dbg$nmatch (.input_desc, dbg$cs_comma, 1) 

3 1468 1591 

3 1469 1338 EXITLOOP; 

3: 1470 159 

3 1471 1594 END; ! End of WHILE loop 
: 1076 1595 

3 147 1338 RETURN sts$k_success; 

3 1476 159 

3 1475 1598 1 

3; INFO#250 L1:1407, ee 

3; Referenced LOCAL symbol NOUN_NODE is probably not initialized 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


07 O08 P.AAJ: .BYTE 7 

53 53 45 52 44 44 41 00059 -ASCII \ADDRESS\ 
07 Obet P.AAK: .BYTE 7 

44 46 41 4D 4D 4F 43 61 »ASCII \COMMAND\ 
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DBGDEF INE -Sep-1984 00:15:3 AX=11 Bliss-32 v4.0-74 P 41 
Mivetite 12: et 7 90:18:28 DEBUG. SRCJDBGDEFINE.B32;1 296 41) 
03 P.AAL: .BYTE 3 : 
59 45 48 oes “ASCII \KEY\ ; 
0 0 C P.AAM: ‘BYTE 5 : 
4C 41 43 4F ac are “ASCII SLOCAL\ ; 
45 52 55 46 45 43 4F 52 50 i er ASCII \PROCEDURE\ : 
47 4E 49 52 54 3 O70 pees ASCII \STRING\ : 
45 55 4C 41 56 0008 — “ASCII \VALUE\ ; 
C 01 00089 P.AAQ: ‘BYTE 1, 44 : | 
p 1 99 P.AAR: .BYTE 1, 13 : 
1 D P.AAS: .BYTE 1. 36 : 
D 01 OOO8F P.AAT: .BYTE 1. 61 : | 
8 01 00091 P.AAU: {BYTE 1. 40 ; 
5F 01 00093 PLAAV: “BYTE 1. 47 : | 
DBGECS_ADDRESS= PAI | 
DBGS$C CS_CONMAN P-AAK 
DBGSCS-KEY= P-AAL 
DBGSCS~LOCAL P.AAM 
DBGSCS~ ~PROCEDURE- P.AAN 
DBGSCS~STRING= P. AAO | 
pees s “VALUE= P- AAP 
DBGSCS~COMMA= P.AAQ 
DBGSCS~CR= P-AAR | 
DBGSCS-DBLQUOTE= =P. AAS | 
DBG$CS~EQUAL= P-AAT | 
DBGSCS-LEFT PAREN= P.AAU 
DBGS$CS~SLASA= P- AAV 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 ENTRY DBGSNPARSE DEFINE. Save R2.R3,R4,R5,R6,R7,= ; sit 
5B 00000000" EF 9E 00002 MOVAB pBcscs CR. R11 : 
2A 000000006 0 ‘ 90009 NOVA DGSNMATCH, R10 : | 
56 04 A O913 MOVL thar DESC, R6 + 1293 
10. AE 66 08 28 00017 MOVES AB, (RE), §1G_DESC : “a 
Of AB 9F O00IE PUSHAR  DBGSCS. SLASH Bsa] 
6A : FB 00024 CALLS #3, DBGSNMATCH : 
25 0 €9 00027 BLBC =«-_-«RO,. 2$ : 
01 DD OO02A PUSHL # > 1296. 
bp AB i 00 : PUSHAB DBGSCS_KEY : | 
6A FB 3 CALLS +e ~DBGSNMATCH : 
66 10 AE 8 MOVC3 STG_DESC, (R6) > 1299 | 
7€ 08 AC 7D 0005 MOVG i NOBE, ~(SP) : 1300, 
0000v CF a8 FB ‘3 CALLS DBGSNPARSE_DEF _KEY : | 
03 ‘ 4 BLBC STATUS’ 1$ > 1301 | 
02c0 31 00048 BRW 41$ : | 


9 | 
DBGDEF INE 1b-se -1984 00:15:3 AX-11 Bliss-32 V4.0-74 Page 42, 
voe-000 132800- 138 13 lesa DEBUG. SRCIDBGDEL INE .039; 1 iD | 
04 OO04E 1$: RET 7 1304) 
59 01 DO OO04F ¢: MOVL #1, GLOBAL_FLAG : 1317 
1 DD 2 38: PUSHL # > 1315) 
08 AB OF 4 PUSHAB DBGSCS_SLASH : | 
56 DD 00057 PUSHL 3 
6A 9 FB 00 9 CALLS #3, DBGSNMATCH : 
03 : C BLBS = RO, 4$ : 
009F 31 9005F BRW 10$ : | 
03 DD 90062 4$ PUSHL #1 > 1320. 
CD AB PF 00064 PUSHAB DBGS$CS_ADDRESS : | 
56 DD 00067 PUSHL : | 
6h Q FB 0 69 CALLS #3, DBGSNMATCH : | 
01 D 6C CMPL ORO, #1 : | 
i5 12 O06F BNEQ $ ; | 
02 oD 00071 PUSHL #2 > 1322) 
000000006 00 01 FB 00073 CALLS #1, DBGSSET DEF INE_LVL : | 
50 000000006 00 DO O007A MOVL §§ DBG$GB_DEFINE_PTR,~RO : 1323) 
60 1 90 00081 MOVE #1, (RO) : | 
CC 11 00084 5$: BRB 3$ : 1317 
01 0D 00086 6$: PUSHL #1 : 1326) 
DS AB 9F 00088 PUSHAB DBGS$CS_COMMAND : | 
56 DD 00088 PUSHL ; | 
6A 03 FB 0008D CALLS #3, DBGSNMATCH : | 
01 50 D1 0090 CMPL =O, #1 : | 
15 12 0009 BNEQ : | 
02 Dd 00095 PUSHL #2 : 1328 
000000006 00 01 FB 00097 CALLS #1, DBGSSET_DEFINE_LVL : | 
50 000000006 00 00 00095 MOVL § DBG$GB_DEFINE_PTR,~RO > 1329. 
60 02 90 OOOA MOVE #2, (RO) : | 
AB 11 O00A8 BRB 3$ > 1317 
01 DD QOOAA 7$: PUSHL #1 : 1338) 
E1 AB 9F QOOAC PUSHAB DBG$CS_LOCAL ; | 
36 DD OOOAF PUSHL ; 
6A 03 FB 00081 CALLS #3, DBGSNMATCH : 
01 50 1 90084 CMPL RO, #1 ; 
04 12 00087 BNEG : 
59 D4 00089 CLRL GSLOBAL_FLAG 3 1339. 
95 11 00088 BRB 5 ; | 
01 DD 00080 8$: PUSHL #1 > 1347 | 
F8 AB 9F OOOBF PUSHAB DBGSCS_VALUE ; | 
56 DD 000C2 PUSHL R6 ; | 
6A 03 FB 000C4 CALLS #3, DBGSNMATCH ; 
01 0 1 000C7 CMPL =O, #1 ; 
15 12 OCA BNEQ 9 ; | 
02 DD 000CC PUSHL # : 1349 
000000006 00 01 FB OOCE CALLS #1, DBGSSET DEFINE_LVL ; | 
0 000000006 00 Dd 990 MOVL  § DBGSGB_DEFINE_PTR, ~RO : 1350. 
0 05 90 0000C MOVE #5, (RO) 
AS 11 OOODF BRB 5$ > 1317 | 
1 DD O00E1 9S: PUSHL #1 : 1353, 
0840 8F BB OOES PUSHR #*M<R6,R11> : 
6A 3 FB OE CALLS #3, DBGSNMATCH 
9 0 E8 QOOEA BLBS = RO, 128 ; 
56 DD 6 ED PUSHL ; 
000000006 00 gi FB OOOEF CALLS #1, DBGSNNEXT_WORD ; 
0 DD 00 Fo PUSHL R ; 
000000006 00 01 FB 000F CALLS #1, DBGSNSYNTAX_ERROR 
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fein : 14-Sep-19 2 4359) 
GDEF IN BRB «138 NE PTR, RO ; | 
| Vbe"600 36 pO Soro1 108: BOUL BRO) DEF INE. RIND : 1365. 
35 prema s 3 novL Pr eae ei hot 1 cRs) 137% 
A MOVB DEF ME ; 1419 
"PRE Be Bites AB 
3 Oc AC D 11$ PUSHL #1 > : | 
t BB dorte ya ap TO : | 
ea £8 001 BLBC” RO, 148 bage 
6A 0 £9 001 PUSHL #164048 : | 
ARG_VECT 3 
‘* 00028000 oy FB oor ROVE” RO, OMESSAGE DECI” : 1385 
nena: oe 30 of } ; ae oe a ee 
b¢ DD 001 . oe tee i. nea nou sin goer ress: 
.* ; 1399) 
000000006 99 8 D0 bores nae Ptast 15$ : 1400 
08 3f fa See nore ERS ane NODE, 8(R5) ; 1207 
54 00 001 BRB 16$~ 8 (NOUN_NODE ) > 1408. 
og RB i BR naan, sumne Ag 
08 Ag $4 D0 00154 16$: MOVE 8(NOUN_NODE) Rinne 
” 08 = A2 D4 00157 PUSHR — RAMCR2-RS> : | 
1 a ne i as 
0000v CF 8) ES oles ae : | 
2 AB OF 00168 PUSHAB * prea: | 
a er eee se 
A BLBC AG, 17$ ; 
i ss 8 ae ROVL Hh tenoun: wee : 1437 
04 A2 03 41 OOIgR CURL 4 CNOUN_NODE) 3 1464 | 
O38 CF Ooty 18; CASEL DEFINE KIND, #1, #6 : | 
3 WORD -198, : | 
01 00183 19 : 7$-19$,- : 
06 0034 ¢ ; 
OAB 0084 00E6 00188 $-198,- ; 
0084 0008 0008 i 198.- : 
$-19$,- : 
308- 198 1574 
208: PUSHL 2 1> : 
0840 BF BB 00195 CALLS #3, DBgSNMATCH : 
F C R ° 
6A 80 £9 OO19A BLBC «RO, 
BRW 
mr i STAD 218: ehice ay. DBGSNNEXT_WORD : 
1 FB 1 RO : 
000000006 00 50 re oi CALLS a0: DBGSNSYNTAX, ERROR 
0 189 $ MOV 
000000006 99 50 BO OO1Be 22s: = MOVL = ROE 
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- 12-808-1 382 laa DEBUG. SRC IDBGDEF INE .B3 31 
3 DD 00187 248: PUSHL R3 
1 DD 00189 PUSHL #1 
7E 000000006 00 9A 0018 MOVZBL DBG$GB_RADIX, -(SP) 
OC AE 9F OOIC PUSHAB TEMP_ADDR_EXP_DESC 
36 DD O01C PUSHL R 
000000006 00 g F 1¢ CALLS #5, DBGSNPARSE_ADDRESS 
01 0 D1 OOICE CMPL siAtus, Pa 
6 101 BEQL 5 
0 p 103 TSTL STATUS 
4 12 0010 BNEQ 9$ 
53 DD 00107 258 PUSHL R3 
19 AE 9F 0109 PUSHAB SYMID_LIST 
08 AE DD 0010¢ PUSHL TEMP_ADDR_EXP_DESC 
000000006 00 03 FB 001DF CALLS #3, BBGSNGET_SYMID 
53 DD O16 PUSHL R 
08 AE OF OO1E PUSHAB ADDR_EXP_DESC 
08 at DD OO1EB PUSHL ivr ADDR_EXP_DESC 
000000006 00 03 FB Oiee CALLS #3, BBGSNTOPY~DESC 
OC AE DD OOTF PUSHL SYMID_LIST 
000000006 00 01 FB goire CALLS #1, DBGSSTA_LOCK_SYMID 
OC Ae 04 at 0 O1FF MOVL ADDR_EXP_DESC, 12(NOUN_NODE) 
OOF 1 00204 68: BRW 40$ 
01 DD 99 07 27$: PUSHL #1 
02 AB 9F 00209 PUSHAB DBG$CS_DBLQUOTE 
36 DD 0020 PUSHL R 
6A 03 FB 0020 CALLS #3, DBGSNMATCH 
27 50 €9 00211 LBC RO, 31$ 
01 DD 00214 PUSHL 1 
53 DD 00216 PUSHL R3 
01 DD 00218 PJSHL #1 
22 DD OO21A PUSHL #34 
OC A2 9F 0021C PUSHAB 12(NOUN_NODE) 
56 DD Ooi PUSHL R 
000000006 00 06 FB 00 4 CALLS #6, DBGSNACCEPT_STRING 
D9 50 8 00228 28$: BLBS 
00C8 31 00228 29$:  BRW 39§ 
01 bb 99 0S: PUSHL #1 
06 AB 9F 00 PUSHAB DBGSCS_LEFT_PAREN 
36 DD 00 PUSHL 
6A 0 FB 0235 CALLS #3, DEGSNMATCH 
1E 50 €8 00238 BLBS RO, 338 
01 DD 00238 31$: PUSHL 
0840 8F BB 00230 PUSHR #*M<R6,R11> 
6A ; FB 0 41 CALLS #, DBGSNMATCH 
03 5 44 BLBS sR $ 
FF56 31 00247 BRW 1 
00028000 8F DD 0024A 32$: PUSHL #16404 
000000006 00 01 FB 00 9 CALLS #1, DBGSNMAKE_ARG_VECT 
6A 11 00 BRB 37§ 
3 Dd 00259 338: PUSHL R3 
Oc A2 9F 00258 PUSHAB 12(NOUN_NODE) 
36 DD 00 PUSHL R 
000000006 00 03 FB 0 6 CALLS : P DBGSNSAVE_BREAK_BUFFER 
B DD 6 69 348: PUSHL R 
01 bb 6B PUSHL #1 
10 AE 9F 0026D PUSHAB TEMP_DESC 
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000000006 
00000083 8F 08 BE 


000000006 
00000083 8F 08 BE 


000000006 
000000006 


000000006 


000000006 


3; Routine Size: 786 bytes, Routine Base: 


7E 000000006 


of 


08 
8 
7E mf 
10 
00 
08 
00028E68 
00 
10 
10 
00 
1E 
0c 
10 
00 
oc 
oc 
00 
50 
FE 
6A 
03 
50 


som 
we 
w 
wn 


NHN HM MMMOOOCVPMOCOOOCWWWIID > OOOO OCOOOOo~~ 


mn 
MOD OBL SF NOOS F&F OUIMBDOOWO FS FMOSF WOWUWONVWOONO —-— 


Cour 


> 
ss 
Sad 


PANAMA AAAPIDINIPIPPIPYNINPININIPOPYDINPYPYPINPIPYPIPYIPIPPIPYNINPIPIPIPPOPoPofponosponryd 


SIWM NS OS - DOF - MOM "OOIM "SOS OOWZOFT9 SM "SOOM 9 Oo TO 0 
FO 089 MOWMN FO" D9 ODO 709 ODO 79 —-DOVFTNVIWS FS VIO NVIW—- WO 
SOCSOSOSOCOSOSOSOSOSOSOSOSOSSSOSOSOSOSOOSCOOSOOOOOSOO OOOO OOOOoOOOoOO 


COOoOQoOoooooooooooooooooooooooooooooooOoOooOoOoOoOooOooO 


=Rs3s33 


DBGSCODE + 0408 


=1986 93: 


15:3 AX-11 BL igs-32 V4.0-74 
16:4 DEBUG. SRC 
MOVZBL DBGS$GB_RADIX, -(SP) 
PUSHL R 
CALLS #5, DBGSNPARSE_EXPRESSION 
CMPL status, #1 
BEQL 5 
TSTL Syatus 
BNEQ 9$ 
CMPZ7V #16, #8, @TEMP_DESC, #131 
BNEQ 36$ 
PUSHAB TEMP_DESC 
MOVZBL #122, -(SP) 
USHL ENP DESC 
CALLS @# DBGSPRIM TO_VAL 
CMP7V #16, #8, aTEMP_DESC, #131 
NEQ  38$ 
PUSHL  (NOUN_NODE) 
PUSHL #1 
PUSHL #167528 
CALLS #3, DBGSNMAKE_ARG_VECT 
RW ees 
PUSHL R 
USHAB SYMID_LIST 
PUSHL TEMP BESC 
CALLS #3, REGSNGET_SYMID 
LBC =—_saRO,_-239$ 
PUSHL 
PUSHAB 12(NOUN_NODE) 
PUSHL TEMP 
CALLS #3, BBGSNCOPY_DESC 
LBC * 39 
PUSHL SYMID_LIST 
CALLS #1, DBGSSTA_LOCK_SYMID 
BRB 40$ 
MOVL #4, RO 
RET 
TSTW  —- (R6) 
BEQL 418 
PUSHL #1 
PUSHAB DBGS$CS_COMMA 
PUSHL 
CALLS #3, DBGSNMATCH 
BLBC =—_- RO, «418 
BRW 11§ 
MOVL #1, RO 
RET 


DBGDEF INE .B32;1 
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; pe 44 1398 ! ROUTINE dbg$nparse_def_key (input_desc, verb_node, message_vect) = 

3 '+¢ 

$ \er 1601 : Functional Description 

: 1481 1608 : This is the parse network for the DEFINE/KEY command. 

; 14 : 1605 i Routine Inputs 

> 1485 1807 1 input_desc - A pointer fo a string descriptor for the 

: e+ J 1o%8 1} remaining input. 

; 148 1609 1! a_verb_node - The address of a pointer to the verb node 

: be +3 1610 1! for DEFINE, which will be phe top-level 
; 1489 1611 17! node in the command execution tree. 

; res + at : message_vect - A pointer to an error message vector. 

; 149¢ 161 Routine Outputs 

> 14694 1616 1! A command execution tree is constructed starting at the verb 

3 1495 1617 1! node: 

: 1a97 1191 | 

; 1498 1637 | VERB | => | NOUN | 

: 1500 16 ; 1! : The DBGSB_VERB_COMPOSITE field contains a 

: 1501 16 1! eee ene value for the BEFINE/KEY command. 

; 1308 1694 1} {ADVERBO! 

3 1307 + 5 : omer wae The noun node has the following information: 
; 1505 1859 1/ o------ DBGSL_NOUN_VALUE = A pointer to a descriptor 
3: 1506 1628 1! tADVERB1: that contains the key-name. 

: 1507 1069 1 $ meme DBGSL_ADJECTIVE_PTR - A pointer to a 

: 1508 1630 1! t descriptor that contains the 

3 130? 1o3) ! : equilalence string for the key. 

: A3t) 1638 : ; a The adverb nodes appear as follows: 

: 1318 1635 1! “enceses DBGS$B_ADVERB_LITERAL - Qualifier Code. 

3; 1514 1636 1! DBG$L_ADVERB_ VALUE = Value or location of data 
: 1515 1637 1! for this qualifier. 

; 1218 \o8 ! DBGSL_ADVERB_LINK = Link to next Adverb-node. 
; 1518 1640 1! For Adverb1, which contains the qualifier information for the IF STATE 
3: 1519 1641 1! qualifier, there exists a list of state names with DBGS$L_ADVERB_VALUE 
; 1520 1046 ,: pointing at a state_name_node. This node is defined above, but you 
3 1521 1645 1! should note that the node consists of 2 fields. 1) A pointer to a. 
3 13 § 1644 1! descriptor of the state name and 2) A Link field to the next node in 
3 95 1645 1! the List. 

i 1858 lec? | i 

: 1386 1648 1! The string descriptor is updated to point past the 

: 1367 1963 : input that has been parsed. A completion code is returned: 

: 13¢9 1651 1! STS$K_SUCCESS = The input was successfully parsed. 

: 15350 1636 1! STSSK_SEVERE - There were errors during the parse. An error 

3 133) 1655 1! message vector is constructed and returned 

3; 15 ¢ 1654 1! in message_vect. 

s 155 1655 1 !-- 
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2. 16 § BEGIN 

; 1535 16 

3 } 16 8 MAP 

3: 1 16 input_desc : REF BLOCK C,BYTE), ! String descriptor 

; ! 8 1660 verb_node : REF dbg$verb_node; 

: 1540 1996 BIND 

3 1541 166 dbg$cs_ec = UPLIT BYTE (4, 'ECHO') 

: 1348 1664 bo$cs_if_state = UPLIT BYTE (8. ‘IF STATE’) 

: 154 1665 dbg$cs~lock_state = UPLIT BYTE (16, *LOCK_STATE'), 

: 1546 1666 dbg$cs_lo = UPLIT BYTE (3, ‘LOG’) 

; 1545 1667 dbg$cs_set_state = UPLIT BYTE (9, ‘SET STATE"), 

3 3 8 1668 dbg$cs_terminate = UPLIT BYTE (9, ‘TERMINATE'), 

3 154 1669 dbg$cs_NO = UPLIT BYTE ('NO"), 

; 1548 1670 dbg$cs_left_paren = uel BYTE (1, dbg$k_left_parenthesis) 

: 1549 1671 dbg$cs_right_paren = UPLIT BYTE (1, dbg$k-right parenthesis), 

; 1550 lore dbg$cs_comma = UPLIT BYTE (1, dbg$k_comma), 

3; 1551 167 dbg$cs_cr = UPLIT BYTE (1, dbg$k_car_return), 

3 1336 1674 dbg$cs_dblquote = UPLIT BYTE (1, dbg$k_dblquote), 

; 155 1675 dbg$cs_equal = UPLIT BYTE (1, dbg$k_equal), 

3 1228 1978 dbg$cs_slash = UPLIT BYTE (1, dbg$k_slash); 

; 188 1678 LITERAL 

3; 1557 1679 dbg$k_lowest_qualifier = 0, ! These Literals correspond to the 

; 1558 1680 dbg$k_echo = 0, ! adverb-nodes in the structure 

; 1559 1681 dbg$k_if_state = 1, ! that gets built. 

; 1560 1o8¢ dbg$k_loctk_state + ¢: 

; 1561 168 dbg$k_lo = 3, 

3 1266 1684 dbg$k_set_state = 4, 

3; 156 1685 dbg$k_terminate  & 2, 

3 1564 1686 dbg$k_highest_qualifier = 5; 

; 1565 1687 

: 1566 1688 LOCAL 

; 1567 1689 define_kind INITIAL(O), ' Value of DEFINE/KEY + pea 
>; 1568 1690 noun_node REF dbg$noun_node, ! Pointer to a noun node 

3; 1569 1691 new_noun_node REF dbg$noun_node, ! Another pointer to a noun node 
; 1570 1696 adverb_node : REF dbg$adverb_node, ! Pointer to a noun node 

3; 1571 169 new_adverb_node : REF dbg$adverb_node, ! Another pointer to a adverb node 
3 1378 1694 state_name_node : REF dbg$state_name_node, ! Pointer to a state-name node 
3 157 1695 new_state_name_node REF coprstete name_node, ! Another pointer to a state-name node 
3: 1574 1696 ptr REF VECTORC BYTE), ! Points into input string 

; 1575 1697 status, 

3; 1576 1698 temp_key_desc : REF dbg$stg_desc, : peeing desc. for DEFINE/KEY symbols 
3 1377 19%? key_no, ' Flag for NOxxx qualifier 

3; 1578 1700 define_key_value; ! Value for the qualifier 

; 1579 1701 

; 1580 1708 

3 1382 HA 1 Check whether we are on a system that allows keypad input. 

: 158 1705 IF NOT .dbg$gb_keypad_input 

: 1584 1706 * Cem hertie 

; 1262 HATA SIGNAL (dbg$_nokeydef) ; 

3 1389 1709 ! FILL in the fact that this is a DEFINE/KEY command in the verb node. 

; 1388 1719 } And clear the noun Link value. 

3; 1590 1712 verb_node [dbg$b_verb_composite] = define_key; 
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; } 4! at verb_node (dbg$l_verb_object_ptr] = 0; 

3; 159 1715 ! Build adverb List with defaults. 

: 1594 171g : 

; 1595 171 

3 i 38 rig new _adverb_node = dbg$get_tempmem(dbg$k_adverb_node_size); ! Get first node 
3 1338 1720 verb_node (Cdbg$l_verb_adverb_ptr] = .new_adverb_node; 

3 1392 4 1 adverb_node = .néw_adverb_node; 

; 1601 17 ‘ adverb_node (dbg$b_adverb_literal] = dbg$k_lowest_qualifier; ! Initialize first node 
: 160 1724 adverb_node (dbg$l_adverb_value] = 0; 

3 1oh7 if 5 adverb_node [dbg$l_adverb_link] = 0; 

; 1605 17 $ define_kind = dbg$k_lowest qualifier + 1; 

s b's if 8 me ee Cea dbgSk_highest_qualifier dO ! Build rest of adverb List 
3; 1608 1730 new odvers neds = db Soot. tonppen(dbgSk _adverb_node_size); 

: 1609 1731 adverb_node (Cdbg$l_adverb_Link] = .new_adverb_node; 

3 1oi9 Vy ¢ adverb_node = .new_adverb_node; 

3 1ot6 1734 adverb_node (dbg$b_adverb_literal] = .define_kind; 

: 161 1735 IF .define_kind EQC dbg$k_if_state 

3; 1614 fe 3 THEN 

3 1615 1737 4 BEGIN 

3; 1616 1738 4 ! Initialize the if-state node to point to a state name node that 
3 Hy oF 1773 2 } points to a descriptor that has the current state-name. 

3; 1619 1741 4 temp_key_desc = Gogtort  tongnen(?): 

3 ios 17tg 4 temp_key_desc Cdsc$w_length) = 0; 

: 1621 17435 4 temp_key_desc [dsc$b_dtype = dsc$k_dtype_t; 

3 lose 1744 4 temp_key_desc (Cdsc$b_class = dsc$k_class_d; 

: 1634 ee? ? temp_key_desc Cdsc$a_pointer] = 0; 

3; 1625 1747 4 state_name_node = dbg$get_tempmem(dbg$k_state_name_size); 

: 1626 1748 4 

3: 1627 1749 4 ! Get the current state-name 

3 1628 1750 4 : 

3 \og? 1751 4 sngSset default state (dbgSol key table id, 0, .temp_key_desc); 
3; 16 1736 6 state_name_node [dbg$\_state_name_ptr] = .temp_key_desc; 

; 163) Hat ? state_name_node ([dbg$l_state_name_link] = 0; 

; 1638 1755 4 adverb_node (dbg$l_adverb_value] = .state_name_node; 

; 1Oe¢ 1736 4 END 

3 1635 17 ELSE 

3 1936 1738 : Let zero be the default for all the other adverb nodes 

3; 1638 1760 adverb_node (dbg$l_adverb_value] = 0; 

; 1639 1761 

3; 1640 1766 define_kind = .define_kind + 1; 

3 1641 176 END; 

3 1ee6 17ee adverb_node (dbg$l_adverb_link] = 0; 

3 1644 1768 WHILE (NOT dbg$nmat nC. Input desc. dbg$cs_cr, 1)) AND 

: 1645 176 (,input_desc Cdsc$w_length] GTR 0) 50 

3 1046 1768 

3 164 1769 BEGIN 
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>: 164 177 IF dbg$nmatch(.input_desc, dbg$cs_slash, 1) 

: 1828 iy 3 THEN.» el _—— 

wep ie _ 

: 12 § Vere 2 } Find out what kind of qualifier it is 

: 16 4 1226 4 i Initialize value 

; 1656 1778 4 define key_value = 0; 

; 1eef Ae 2 d_key_NO ="FALSE; 

; 1659 178 4 ! Check for a NO qualifier 

: 1901 1788 & — eee te UPLIT(’ "), 1, CHSPTR(.input_desc Cdsc$a_pointer])) DO 
: 1863 1785 3 input_desc pascse_potnters = CHSPLUSS. topyt Sese Cdsc$a_pointer], 1); 
> 1664 1786 5 prputcese dsc$w_length] = .input_desc Cdsc$w_length] = 1; 

: 1888 1786 ss 

: 1667 1789 4 IF CHSEQL(2, CHSPTR(dbg$cs_NO). 2, CHSPTR(.input_desc Cdsc$a_pointer])) 
: 1669 191 § THEN BEGIN 

; 1670 1792 5 d_key_NO = TRUE; 

; 1671 1793 5 input _desc tdscfa_pointer] = CHSPLUS(.input_desc Cdsc$a_pointer), 2); 
3 1676 1794 5 input_desc [dsc$w_length] = .input_desc [dsc$w_length] = 2; 

We Be * 

; 1073 1797 : ! Set Define_key with qualifier code, and get value of define_key_value. 
: 1677 1799 4 SELECTONE TRUE OF 

: 1679 1801 4 ah 

; 1680 180@ 4 CabgSnmatch(. input_desc, dbg$cs_echo, 1)] : 

; 168@ 1804 ; define_key_value = 0; 

: 168 1805 define kind = dbgSk echo; 

3 1684 1806 5 IF .d_Key_NO THEN deéfine_key_value = 1; 

eB ts 

; He $4 199) : CdbgSnmatch(. input_desc. dbg$cs_if_state, 1)] : 

: 1689 1811 define_key_ value = 0; 

> 1690 1 1g define-kind = dbg$k_if_state; 

: 1691 ' \7 IF NOT .d_key_NO 

; 1698 1815 6 BEGIN 

3 1694 1aig 6 temp_key_desc = dbgSpet _tonpmen( 2); 

3: 1695 131 6 temp_key_desc(dsc$w_length] = 0; 

3: 1696 1 18 6 temp_key_descldsc$b_dtype = dsc$k_dtype_t; 

: 1697 1819 6 temp_key_descldsc$b_class = dsc$k_class_d; 

3 1098 1330 ? temp_key_desc(dsc$a_pointer] = 0; 

: 1960 18 ; 6 ' Look for = 

 1F03 1854 & 

; 1508 1825 6 IF NOT dbg$nmatch (.input_desc, dbg$cs_equal, 1) 

3 1704 1826 6 THEN 
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report_error; 
Look for a left paren 


SELES 


roe ree (.input_desc, dbg$cs_left_paren, 1) 
BEGIN 
} Pick up the first state name 


VMFW—O0OOo~n 


Status = dbg$read_key_info (.input_desc, 
-temp_key_desc, 
smessage_vect); 


tt te tt 


oe 


IF NOT .status 
RETURN sts$k_severe; 


new_state_name_node = Copiset  tenpnan\ehgehstate_nene_6120); 
state_namé_node = .new_state_name_node; 

state_name_node ([dbg$l_state_name_ptr] = .temp_key_desc; 
state_name_node ([dbg$l_state_name_link] = 0; 

define_key_value = .state_name_node; 


+4 


, at et 
WN —OOONAVUES WN" O ODNOUS WN OC 


og ea (.input_desc, dbg$cs_comma, 1) DO 


=—OOODNAUSWN “OO ONOULSWN oO 


eS Sos hose 


temp_key_desc = dbgSpet _tenpmen(2); 
temp_key_desc(dsc$w_length] = 0; 
temp_key_descldsc$b_dtype = dsc$k_dtype_t; 
temp_key_descldsc$b_class = dsc$k_class_d; 
temp_key_descldsc$a_pointer] = 0; 


wr 


Pick up the next state name 


SG anos 


MEUM —OOONOUEWN “OC 0OnNOuU 


status = dbg$read_key_info (.input_desc, 
.temp_Key_desc, 
-message_vect); 


0 C9 Od CD Co Cd CD Cd Go CD CD CD CD CD OD CD CD OD CD 
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IF -. -Status 

RETURN sts$k_severe; 
new _state_name_node = db Spot tonpagat qogee state pene, size): 
state_nameé_node (dbg$l_state_name_lLink] = .fiew_state_name_node; 
state_name_node = .new_state_name_node; 
state_name_node Fdbgst_state_name_ tr] = .temp_key_desc; 
state_name_node [dbg$l_state_name_link] = 0; 
END; 


Eat right paren 


o 
VEAP 
ANN N09 090909 69 09 00 09 69 Cd Cd C9 09 09 09 09 CD 09 09 09 09 09 SINISE NINN NN NINN NO AAAOAO 


ot at pt et et et ee 
nao 


NOULSWN OOO 


ra dbg$nmatch (.input_desc, dbg$cs_right_paren, 1) 


PAM 


report_error; 
END 
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ee ee ee ___._.__.._.. eee ee ee ene SS 
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wr 


ELSE 


7 

7 

766 

ree BEGIN 

708 . Pick up the only state name 

7 90 

re 91 status = dbg$read_key_info (.input_desc, 

770 3 -temp_Key_desc, 

771 9 omessage_vect); 

re 94 IF NOT .status 

77 95 THEN 

ore 1 RETURN sts$k_severe; 

77 98 new _state_name_node = dbg$get_tempmem(dbg$k_state_name_size); 
a8 899 state_namé_node = .new_s ate. fane nod : ig ares. 
778 900 state_name_node Fdbast state name_ tr)_= .temp_key_desc; 
779 901 state_name_node [dbg$l_state_name_link] = 0; 

780 306 define_key_value = .state_name_node; 

1 nt? en 

oO “ 

785 90 END; 

7 90 

rey 90 Edbgsrmetch(. input_dese. dbg$cs_lock_state, 3)] : 

789 define_key_value = 1; 

790 define-kind = dbaSk lock state; 


IF .d_Key_NO THEN define_key_value = 0; 
END; 


oO 
Wwn— 


oo 
* 


Cdbg$nmatch(.input_desc, dbg$cs_log, 3)] : 
SBEGIN poe — 


define_key_value = 0; 
define-kind = dbask log: 
If :o=Key_NO THEN define_key_value = 1; 


Saye 


LES 


Ssss3z 


Cdbg$nmatch(.input_desc, dbg$cs_set_state, 1)] : 
BEGIN 


define_kind = dbg$k_set_state; 
define_key value = 0; 

If NOT .d_key_NO 

THEN 


BEGIN 
temp_key_desc = dbaspet tonpmen(2); 
temp_key_desc(dsc$w_length]) = 0; 


=—OOONOA UES WN SO VONOUES WN 0 0@ 


SSese 


3 
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<a 
3 1 
3: 1 
3 1 
3 1 
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3 1 
3 1 
3 1 
3 1 
. | 
3 1 
3; 1 
3 1 
21 
31 
3 1 
3: 1 
3 1 
3 1 
3 1 
3 1 
31 
: 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
|e 
3 1 
3 1 
3 1 
3: 1 
: 1 
3:1 
: 1 
3 1 
2 1 
31 
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810 : temp_key_descldsc$b-dtype] = dsc$k_dtype_t; 
811 temp_key_descldsc$b_class = gscSk.class_d: 
313 : temp_key_descldsc$a_pointer] = 0; 

14 ' Look for = 
HO | 

1 IF NOT dbg$nmatch (.input_desc, dbg$cs_equal, 1) 
818 940 THEN on _— 


| 
| 
| 
| 
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vOu-000 Ve-Sep-198e 12:16:48 — EDgaUG.SRCHDBGDEF INE .O39;1 9° 0425 
94 report_error; 
} Pick up the state name 
status = dbg$read_key_info o. Samu  S00e - 
.tem esc, 
‘messige vect); 


IF NOT .status 


102 09 CO CO CD CDC CDC 
AAA LIT IOIN I IRIRIN ID 
MiFWN OO OONOUFS WOO 


3 3 1941 6 

3 3 1306 ? 

3 1 194 

3; 1 1944 6 

3% 1945 6 

3% Hb 4 6 

3 1 1947 6 

: 18 

: 18 1950 6 

; 18 192) ° RETURN sts$k_severe; 

51 1988 g define_key_value = .temp_key_desc; 

18 1988 en; 

: 18 1956 4 ' 

; + 1987 4 Cdbgirmetch(. input dese. dbg$cs_terminate, 1)] : 

; 1839 1959 ; define_key_value = 1; 

; 1838 1960 define kind = dbgSk terminate: 

: H+ +44 3 é IF .d_Key_NO THEN define_key_value = 0; 

: 1841 1968 5 ! Since we may have to reset the default from 1 to 0 

3 iste 1964 5 ! It is best to do this here and allow it to skip 

3: 184 1965 5 ' over the similar code down below. 

>; 1844 1208 2 ! ( This is hacked up because the /NOECHO and /NOTERM are 

3 1ee2 sd mutually exlusive qualifiers. ) This bothers me too. 

: 1809 12eP ; adverb_node = .verb_node [dbg$l verb_adverb pte): 

: 1848 1970 WHILE Tadverb_node Cdbg$b_adver6_litéral] NE gbo$k_ terminate dO 
3 1849 1971 2 adverb_node = .adverb_node [dbg$l_adverb_linkJ; 

3; 1850 1906 adverb_node ([dbg$l_adverb_value] = .define_key_value; 

; 1852 1973 ? define_key_value ="0; ! This is to jump over the code below. 
; 185 1975 4 ° 

>: 1854 1976 4 COTHERWISE) : 

3 1322 44 ? g, Pevertorvers 

ibe? 1979 4 : 

3; 1858 1980 4 ! Process the qualifier if it changes the default 

: 1859 1981 4 

3; 1860 1986 4 IF .define_key_value NEQ 0 

1863 1984 § THEN BEGIN 

; 1868 1983 adverb_node = .verb_node [dbg$l_verb_adverb ptrdi 

3 1864 1986 WHILE T.adverb_node” Cdbg$b_adverb literal) NEQ .define_kind) DO 
: 1865 19. : odverd neds = ,adverb_node fdbg5_adverb. link); 

3 1306 1380 adverb_node (dbg$l_adverb_value] = .define_kéy_value; 

3 1868 1990 ! If the qualifier is /NOECHO then the default of the terminate 
3 1962 1991 ! qualifier changes to /TERMINATE 

3 1871 1936 1 _gbevera_nece dbg$b_adverb_literal] EQL dbg$k_echo 

3; 187 1994 6 BEGIN 

3 1878 1995 6 WHILE .adverb_node Cdbg$b_adverb_literal] NEQ Goat terminate dO 
: 1874 1996 6 a verb node = ,adverb_node pabgsl_adverb_tin a3 

3 1875 1997 6 adverb_node ([dbg$l_adverb_value] = 1; 


m9 
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7 199 END; 
rf 1999 END; 
i$ 864 END ! End of picking up qualifier after slash 
; ELSE 
4 BEGIN 
5 
00 


! Process key name or equivalence string 
tg vert node Cdbg$l_verb_object_ptr] EQ. 0 
BEGIN 


Get key name 


Saas 
-—CcOMm 


PUPV PULP DVDS ES BS BS SVIVIVSVDVSUDVSTSVSUSUSUSESTSTSTUSVSUSIUSUSTU SISOS SUSI SISSIES SS EE PEP PEN 


temp_key_desc = dbgtpettenpnen(2); 
temp_key_desc(dsc$w_length] = 0; 
temp_key_descldsc$b_dtype = dsc$k_dtype_t; 
temp_key_descldsc$b_class = gscdhclase.¢:; 
temp_key_desc(dsc$a_pointer] = 0; 
status = dbg$read_key_info (.input_desc, 
.temp_Key_desc, 
-message_vect); 
IF NOT .status 


RETURN sts$k_severe; 
} Make noun node for key-name and equivalence string 


new_noun_node = dbg$get_tempmem(dbg$k_noun_node_size); 


ETS SSE SRS SARS 
FUN “OOD NOUNES WIN OC OONOUL wT 


ab ob edad edad adad dadadabatadadadabadabadadabdaabaatadeiadaiaitabadabadadabadabdabababadababababababadadababababadead 
DOOCOCCSOOCOOSOOOSOOOOO OOO OOOOOOCoOOoOO 
FE FAAAWA MAINA IPPON NP NPONUNNIDYD 2 OO Os 


910 3 verb_node Cdbg$l_verb_object_ptr] = .new_noun_node; 
911 noun_node = .new_noun_node; 
aig noun_node Cdbg$l_noun_value] =_.temp_key_desc; 
91 5 noun_node [dbg$l_adjective_ptr] = 0; 
914 § noun_node [dbg$l-noun_Link] = 0; 
a i END 
319 9 ! If we got the key-name ok, go after the equivalence string 
at ? } Provided there is still something left to get. 
eR est 
9 § bei IF .moun_node Cdbg$l_adjective_ptr] EQL 0 
: 045 aay OO 
925 09 temp_key_desc = dbgSget _tenpmem(2); 
9 $ 048 temp_key_desc(dsc$w_length] = 0; 
9 049 temp_key_descldsc$b_dtype = dsc$k_dtype_t; 
0 temp_key_desc(dsc$b_class = dsc$k_class_d; 
; temp_key_descldsc$a_pointer] = 0; 
4 


sSssss 
m=O 0O@ 
Wn 


ooooeo 


Pick up leading quote 


9 | 
ie 69051 page 43) | 


N 
16-Sep-1984 00:15:3 AX-11 Bliss-32 V4 
12=886-19 4 19:18:28 DEBUG. SRC IDBGDEF I 


: 1933 5 ; 

; 19 IF NOT dbg$nmatch (.input_desc, dbg$cs_dblquote, 1) 

: 1935 is a “ns AP ie 

3 19 3 6 BEGIN 

3; 19 59 6 status = dbg$read_key_info (.input_desc, 

3; 19 060 6 -temp_key_desc, 

3; 19 1 6 -message_vect); 

3; 1940 ¢ 6 IF NOT .status 

3 1941 6 THEN 

3 1306 064 6 report_error; 

: 1900 Oeg $ eLsee | 
3 1945 $3 BEGIN | 
; 18 ¥¢ 6 ! Pick up the quoted string 

: 13c8 O70 | 
3 1949 071 6 status = dbg$naccept_string (.input_desc, 
3; 1950 44 6 cone acy desc Cdsc$a_pointer], 
3 1951 073 4 dbg k_dbTquote, 

; 1326 074 6 FALSE, 
3; 195 075 6 -message_vect, 

Bs a sted 
; 1956 O78 6 IF NOT .status | 
; 1958 080 & RETURN sts$k_severe; | 
; 1300 Oag ? } Grab the Length of the string and move the pointer. 

: 1906 084 6 temp_key_desc Cdsc$w_length] = CHSRCHAR_A(temp_key_desc Cdsc$a_pointer]); | 
3; 196 2085 6 
Be BBG | 
> 1966 $088 5 noun_node (dbg$l_adjective_ptr] = .temp_key_desc; 

: 1967 089 § | 
Be 8 

: 1970 092 4 report_error; | 
Bh BG on | 
; 1978 099 END; ! End While | 
: 1975 099 ' Check to see if key-name and the equivalence string have been entered. | 
3 1378 a8 ! If not, return a need more message and error status. 
: 19r8 100 | 
: 1979 101 IF _,verd_node Cdbg$l_verb_object_ptr] EQ. 0 | 
> 1981 108 BEGIN | 
3 4 1 message _vect = dbg$nmake_arg_vect (dbg$_needmore) ; 

3 133? : 5 acre sts$k_severe; 

; 1985 If | ,noun_node Cdbg$l_adjective_ptr) EQL 0 

7 19 1 : BEGIN 

; 1338 110 -message_vect = dbg$nmake_arg_vect (dbg$_needmore); 

: 1989 111 RETURN sts$k_severe; 


10 
GDEF INE 16-Se 1984 00:15:3 AX-11 Bliss-32 V4.0-74 
voe-000 102 365-1 984 Bi 18:28 DEBUG. SRCIJDBGDEF INE -B3 1 


; 1990 118 END; 
: 139) 11 
; 199 114 ENDS sts$k_success; 


199 
: INFO#250 L 4 
; Referenced LOCAL symbol NOUN -NODE is probably not initialized 


-PSECT DBGSPLIT,NCWRi, SHR, PIC,0 


04 4944 P.AAW: .BYTE 4 
4F 48 43 45 00096 -ASCII \ECHO\ 
08 464 P.AAX: .BYTE 
45 54 41 54 53 SF 46 4 4 | eASCII \IF_STATE\ 
OA QOOA3 P.AAY: .BYTE 1 
45 54 41 54 53 SF 4B 43 4F ag QOOA4 eASCII \LOCK_STATE\ 
03 OQOOAE P.AAZ: .BYTE 
47 4F 4C QOOAF eASCII \LOG\ 
09 b08¢ P.ABA: .BYTE 
45 54 41 54 53 SF 54 45 53 0008 eASCII \SET_STATE\ 
99 QOOBC P.ABB: .BYTE 
45 54 41 4E 49 4D 52 45 54 00080 eASCII \TERMINATE\ 
4F 4€ 000C6 P.ABC: .ASCII \NO\ 
28 01 O000C8 P.ABD: .BYTE 1, 40 
g 4 QOOCA P.ABE: .BYTE 1, 41 
C 01 OOOCC P.ABF: .BYTE 1, 44 
D 01 pooce P.ABG: .BYTE 1, 13 
¢¢ 01 Q00D0 P.ABH: .BYTE 1, 34 
D 01 00002 P.ABI: .BYTE 1, 61 
2F 01 00004 P.ABJ: .BYTE 1, 47 
00006 -BLKB) 2 
00 00 00 20 O00D8 P.ABK: .ASCII \ \<0><0><0> 
DBGS$CS_ECHO= P.AAW 
DBGS$CS_IF_STATE= P.AAX 
DBG$CS_LOCK_STATE= P.AAY 
DBG$CS_LOG= P.AAZ 
DBGSCS"SET STATE= P.ABA 
DBGSCS_TERMINATE= P.ABB 
DBG$CS_NO= P.ABC 
DBGSCS-LEFT_PAREN= P.ABD 
DBGS$CS_RIGHT_PAREN= P.ABE 
DBG$CS_COMMA= P.ABF 
DBG$CS_CR= P.ABG 
DBG$CS_DBLQUOTE= P.ABH 
DBG$CS_EQUAL= P.ABI 
DBG$CS-SLASH= P.ABJ 


-PSECT DBGSCODE.NOWRT, SHR, PIC,0 
OFFC 00000 becseranst 4% ~KEY: 
5E 8 ce é 9090 sUBL 


: ape: R3,R4,R5,R6,R7,R8,R9,R10,R11 
FD 000 CLRL —sODEFIN 
0D 000000006 00 €E8 


KIND 
0007 BLBS DBG GB KEYPAD_INPUT, 1$ 
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) 
DBGSGET_TEMPMEM 
NEW_ADVERB_NODE 
ADVERB_NODE, 4(R7) 
ADVERB" NODE, ADVERB_NODE 
VERB_NODBE) 
DVERB_NODE) 
DEF INE _KIND 
INE_KINB, #5 


W 
W 
D 
A 
f 


, NEW_ADVERB_NODE 
W_ADVERB_NODE, 8(ADVERB_NODE) 
ERB_NODE 


#2 
#1, DBGSGET_TEMPMEM 
Ro TEMP_KEY_DESC 
434471936, (TEMP_KEY_DESC) 
4(TEMP_KEY_DESC) 
#1, DBGSGET_TEMPMEM 
, STATE_NAME_NODE 
RP KEY. 
GSGL_KEY_TABLE_ID 
, SMGSSET_DEFAOLT_STATE 
MP_KEY DESC, (STATE_NAME_NODE) 
STATE _RAME_NODE 
ATE_NAME_NODE, 4(ADVERB_NODE) 
DVERB_NODE) 
INE_KIND 


A 
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ADVERB_NODE) 
PUT_DESC, R3 


G$CS_SLASH 
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DBGDEF INE 16-Sep-1984 00:15:3 AX-11 Bliss-32 V4.0-74 
vitae 1o- 08-1382 90:13:28 DEBUG. SRC IDBGDEF INE .B3 31 
0288 31 Op BRw 45$ 
6 D4 E 9$ CLRL DEFINE |KEY_VALUE 
50 046 A3 be te MOVAB rath te RO 
00 80 00000000' FF 91 OOOES 108 CMPB ss P ABK, @0(RO) 
Sg Se EUS 
é BS OOF4 DECW (Rg) 
FO (11 O0F6 BRB 10$ 
00 80 00000000' FF B1 OOOF8 11S: CMPW DBGSCS_NO, a0(RO) 
s fates AF? a aey v0 
60 6 ¢ Oi8e ADDL ae. (RQ) . 
63 02 A2 00108 SUBW2 #2. (R3) 
01 DD 00108 12$:  PUSHL #1 
00000000' Ef 9F 0010 PUSHAB DBGSCS_ECHO 
3 pd 0011 PUSHL R 
000000006 00 93 FB 0011 CALLS #3, DBGSNMATCH 
. a 
56 04 00121 CLRL DEF INE_KEY_VALUE 
6E bs 00123 CLRL DEF INE_KIND 
O1A2 31 00125 BRW 28$ 
01 DD 00128 13$:  PUSHL #1 
00000000' EF 9F 0012A PUSHAB DBGSCS_IF_STATE 
3 Dd 00130 PUSHL R 
000000006 00 03 FB 01 2 CALLS #3, DBGSNMATCH 
“ 88 93 ool8e Gro fag 
014¢ 3} $1 E BRW 26$ 
56 D4 00141 148: CLRL DEF INE_KEY_VALUE 
6 Q1 DO 00145 MOVL #1, DEFINE-KIND 
0 A E9 0146 BLBC = D_KEY_NO, 
0221 31 00149 BRW 
02 DD 0014C 15$:  PUSHL #2 
000000006 00 01 FB OO14E CALLS #1, DBGSGET_TEMPMEM 
52 50 00 19 MOVL R K 
62 02060000 BF 00 00158 MOVL  #34471938, (TEMP_KEY_DESC) 
04 OF BS oota> Te NR hata stds 
00000000° Ef oF 00164 PUSHAB DBGS$CS_EQUAL 
3 DD 0016A PUSHL R 
000000006 00 03 FB 0016¢ CALLS #3, DBGSNMATCH 
- it + 0917 16$ BL SHL ; hee 
00000000' gf OF B18 PUSHAB DBGSCS_CR 
3 DD 0017E PUSHL R 
000000006 00 5 FB 00180 CALLS #3, DEGSNMATCH 
. 03 4 5 $ H Btu af — 
38 DD 00180 17$:  PUSHL R3 
000000006 00 ; FB 91 F CALLS #1, DBGSNNEXT_WORD 
000000006 00 1 Fe 0198 CALLS #1, DBGSNSYNTAX_ERROR 
O55 Ie ies, eta aft 
00000000" EF BF O1A4 PUSHAB DBGS$CS_LEFT_PAREN 
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8 AX-11 Ot ieee Pat 
6:4 DEBUG. SRC JDBGDEF INE .B32; 1 


a, ee 


2 
MESSAGE _VECT 
"Roane 


R 
#3, DBGSREAD_KEY_INFO 
STATUS, 21$ 

P 


E 
ME STATE_NAME_NODE 
TEMP_KEY DESC, ~(STATE_NAME NODE 
4(STATE_RAME NODE) 

STATE_NAME_NODE, DEF INE_KEY_VALUE 
4(R9)> RB 


# 

5 pron 

#3, DBGSNMATCH 

RO, 22$ 

#1, DBGSGET_TEMPMEM 

RO P KEY DESC 

434471936, (TEMP_KEY_DESC) 
KEY_DESC) 

MESSAGE VECT 

| feats 

#3, DBGSREAD_KEY_ INFO 

STATUS, 24$ 


N DE, (R8) 
NEW-STATE_NAME_NODE, STATE_NAME_NODE 
TEMP KEY DESC. (STATE_NAME ~NODES 


ie 
preva 2 


. DBGSNMATCH 
RO, 29$ 

16$ 
MESSAGE_VECT 
patkan, 


status, $ 
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#1, DBGSGET_TEMPMEM 
RO, NEW STATE_NAME_NODE 
EW_STATE_NAME_NODE, STATE_NAME_NODE 
EMP_KEY BESC,~(STATE_NAME NODES 
(STATE_RAME NODE) 

! E_NAME_NODE, DEF INE_KEY_VALUE 

3 

GSCS_LOCK_STATE 


‘ DEGSNMATCH 
8 


Wwo 


DRBVvnvo Bou fz 


paw 
#3, DBGSNMATCH 
RO, #1 
30 
DEF INE_KEY_VALUE 
#3, DEFINE KIND 
D_KEY_NO, 34 
aT, DEF INE_KEY_ VALUE 
i! 
* ann 
#3, DBGSNMATCH 
RO, #1 
35 
#4, DEFINE_KIND 
DEF INE_KEY~ VALUE 
D KEY_RO, 40$ 
#1, DBGSGET_TEMPMEM 
RO, TEMP_KEY_ DESC 
#34471938, (TEMP_KEY_DESC) 
4(TEMP_KEY_DESC) 
oe 
#3, DBGSNMATCH 
RO, bos 
16$ 
MESSAGE_VECT 
* paint 
#3, DBGSREAD_KEY_INFO 
RO, STAT 
TATUS, 33$ 


UfaP KEV DESC, DEF INE_KEY_VALUE 


Pe Pe Se Se Se Se Se Se Se Se Ge Se Ge Ge Ge Ge Ge Se Be Ge Ve Ge Ge Se Ge Se Ge Se Ge Se Se Fe Fe Fe Fe Se Fe Fe Fe Fe Fe Se Be Ge Se Se Ge Se Ge Se Ge Be Se Se Ge Fe Se 


10 
18-36 -1984 00:15:3 AX=11 Bliss-32 V4.0-74 
14-Sep-1984 Mo leias DEBUG. SRC Sache IWe «03951 
01 DD 7 35$:  PUSHL 41 
00000000° SF 9 PUSHAB DBGS$CS_TERMINATE 
DD f PUSHL 
000000006 00 FB 4 CALLS ’ ‘ DBGSNMATCH 
D1 4B BNEG §6s«31$ 
56 1D 4 MOVL #1, DEFINE_KEY VALUE 
6 5 D MOVL #5, DEFINE-KIND 
0 AE BLBC =—-:»D_LKEY_NO 
: D4 é CLRL DEF INE_KEy VALUE 
54 06 =A 4 0 38: MOVL 4(R7), ADVERB_NODE 
05 64 0 ; $: CPS ADVERB_NODE) #5 
54 08 Ad 0g 0 61 MOVL {ADVERB_NODE) , ADVERB_NODE 
04 Ab 36 D0 6 67 388: MOVL §§ DEFINE_KEY_VALUE, 4(ADVERB_NODE) 
6 D4 00368 39$:  CLRL DEFINE-KEY-VALUE 
36 D3 0 6p 40S: ist DEF INE_KEY_VALUE 
54 04 A7 00 00 a MOVL § 4(R7), ADVERB_NODE 
64 08 00 ED 0375 41$ CMP7v #0, #8, (ADVERB_NODE), DEF INE_KIND 
06 13 0037A BEQL «= 42$ 
AL D C MOVL (ADVERB_NODE), ADVERB_NODE 
oe Git pee 
04 Ab 56 00 00382 42$ MOVL § DEFINE_KEY_VALUE, 4(ADVERB_NODE) 
64 0386 TSTB — (ADVERB_NOBE) 
60 12 00388 BNEQ 47$ 
05 64 91 0038A 438 CMPB = (ADVERB_NODE), #5 
06 13 0038D BEQL 448 
54 08 A& DO 0038F MOVL § 8(ADVERB_NODE), ADVERB_NODE 
F511 00393 BRB 43$ 
04 Ab 01 00 0395 448: MOVL Hi, 4 (ADVERB_NODE) 
58 Oc AC DO 00398 45$:  MOVL  #MESSAGE_VECT, R8 
08 A? D5 0039F TSTL BCR?) 
3 pie =| Beh Gs 
000000006 00 gi FB 09 Ab CALLS #1, DBGSGET_TEMPMEM 
25 0 DO 003AD MOVL Rg TEMP_KEY_DESC 
62 02060000 8F 00 0380 MOVL  #34471938, (TEMP_KEY_DESC) 
4 A2 04 0038 CLRL 4(TEMP_KEY_DESC) 
0 2 0387 
0104 oF BB 003BA PUSHR #*M<R27R8> 
; DD 0038 PUSHL R 
0000v cf F 0 C CALLS #3, DBGSREAD_KEY_INFO 
8 0D C MOVL R 
’ 0008 f : ‘ BRU girs. — 
04 DD CE 46$:  PUSHL &% 
000000006 00 gi FB 03D CALLS #1, DBGSGET TEMPMEM 
8 Ag 0 D D MOVL RO, NEW NOUN NODE 
8 A 08 AE D 0B MOVL NEW_NOUR_NODE, 8(R7) 
55 08 AE D E MOVL § NEW"NOUN“NODE, NOUN NODE 
65 5 p E4 MOVL § TEMP _KEY"DESC, (NOUN_NODE) 
04 =A C £7 CLRQ 4(NOON_NODE ) 
FCC] 31 OO3EA 478:  BRW 
AS D : L NOUN_NOD 
04 AS ED 48$ TST 4 (NO E) 
38 12 003F0 BNEG 498 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Ge Fe Ge Ge Ge Se Se Se Fe Fe Se Ge Fe Fe Ge Be Be Se Ge Se Be Be Be Se Se Fe Se Ge Be Fe Se Ge Ge Be Fe Fe Fe Fe Ge Be Se Fe Se Se 


000000006 


000000006 


0000Vv 


000000006 
000000006 


000000006 
000000006 


000000006 


04 


000000006 
oc 


1994 2116 1 


0 
z 020E0000 : 
04 Ag 
0 
00000000° EF 
00 ; 
48 
0104 F 
gf : 
B 0 
5A B 
01 
00000000' gf 
3 
00 93 
OF 0 
00028000 = 8F 
00 9 
58 
00 01 
50 
00 4 
68 0 
4 
7 
5 
7E é 
04 $ 
00 06 
58 50 
29 5 
62 046 «68 
04 A 
AS 5 
FC2 
08 A 
05 
04 A? 
1 
00028000 F 
00 1 
8 0 
0 04 
50 01 


; Routine Size: 1201 bytes, Routine Base: DBGSCODE 


o7N9 $9 "FW 9 OMS "9 ONTOS 9 M9 NOS MOM MO OOMIO "OOM "OOCVTITT "oO 
ODINVWN OCD OOD "99 £08080 -T0 ODO "OT WBOWVCWMOWO "9 FO0OWVO 

DOOOOOSOSOOSOSOOSOSOOOOSOOOSOSOOOSOSOOOOSOOOSOOOOOOOOOSOO 
SOSOSOOSOGOSGOSOSGOSOSOSSOSOSOOSOSOSOSOSGOSOOSOSOOSOSCSOSOOSOSOSOSOSOSSOSOSOSOOSOSOSOOOOCOO 


50$: 


51$: 
52$: 


1 
1 
fF 
i 
FB 
i 
dp 
4OA 
4) 
41 
41 
41¢ 
4 
‘33 
‘39 
42D 49$: 
42F 
435 
437 
43E 
441 
ger 
436 
32 
2 
& 


0 a4ks 35: 


b Tepid Es 
et eT 


32 AX-11 BL igs-32 V4 0-742 
4 DEBUG. SRC JDBGDEF INE .B32;1 
f 
E. vosse pez 
8 Lahi9s8, (TEMP_KEY_DESC) 
4(TEMP_KEY_DESC) 
* gponmes 
#3, ese 
R 
#*M<R2,RB> 
#3, DBGSREAD_KEY_INFO 
STAT 
STATUS, $ 
p GS$CS_CR 


#3, DBGSNMATCH 
RO 


#164048 
a DBGSNMAKE __ARG_VECT 


R3 

#1, DBGSNNEXT_WORD 

ae DBGSNSYNTAX_ERROR 
57§ 

=(SP) 

R 

#34, -(SP) 
4(TEMP_KEY_DESC) 

#6, DBGSNACCEPT_STRING 
RO, STATUS 
STATUS, 57$ 
a4(TEMP_KEY 


DE 
4(TEMP_REY BES 
MP_KEY_DESC, 


), (TEMP_KEY_DESC) 
(NOUN_NODE ) 
7) 


E 
$ 
(R 
5$ 
(NOUN_NODE ) 
8$ 


BVNS NSS —+ 
= 


64048 
#1, DBGSNMAKE_ARG_VECT 
RO, QMESSAGE _VECT 


#1, RO 


Page 48) 


2047 | 


a 
- 


10 
bese “1984 00:15:3 AX-11 Bliss-32 V4.0-74 P 2 
10-3651 984 MB ilesa DEBUG. SRC IDBGDEF INE .83 1 29° 435 


1336 ! GLOBAL ROUTINE dbg$nparse_delete (input_desc, verb_node, message_vect) = 

1998 1 ; Functional Description 

000 This_is the top-level parse network for the DELETE command. 

001 DELETE is the same as UNDEFINE so we just call that parse 

One network. 

00 

004 Inputs 

005 input_desc - String descriptor for the remaining input. 

5 verb_node - Top-level node in the command tree. 

OoE message_vect - error message vector. | 
009 Routine Outputs | 


& . pe execution tree is constructed starting at the verb 
node: 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

: VERB | => | NOUN }| => | NOUN! =>... 

! 

; In each noun node, all the following fields contain information 

: about the symbol being undefined: 

; DBGSL_NOUN_VALUE - Points to a counted string with the name of 
: the symbol (the left-hand-side of the | 
: definition). 
; DBGSL_ADJECTIVE_PTR = Contains an indication of whether the 
: definition was local (=) or global (==). 
: The string descriptor is updated to point past the 

: anpyt that has been parsed. A completion code is returned: 

STSSK_SUCCESS = The input was successfully parsed. 

' 

i 

le 


PRIPIPINPININININID 2 2 OO Oo ws 


STS$K_SEVERE - There were errors during the parse. An error 


DWONOVESWN —OOONOUSwn oO 


message vector is constructed and returned 
in message_vect. 


PIPIPPYNINIAINININININYNINYINIPYNINININIPYIAININIPINIPIPIPYPINPIPIPIPINIPIPURIPD 


5 bs bs a a as — = ss db —) +b bs 2 5 ss is Ls bs a ss as as os ts a 


PUPA ES BS BEE EE EWI 
MEUM O COONAN E WIN $0 OONO UNE WIN OO CONAOU EWN "OOO 


ONIN a an a kk mk tk ak ak ak ak tk tk at at at ot ot 2 St 1 2 2 ss 


Se me pew lofoiolelolelolelelololelolololo) 


POPEPENononoronononoronononofronnrornnn 


FUS2SS 


| 

| 

BEGIN 
—— dbg$nparse_undefine(.input_desc, .verb_node, .message_vect); 
: 

| 

| 


0000 00000 ENTRY DBGSNPARSE_DELETE, Save nothing 3 $1)? | 

7E 08 AC 70 00002 MOVQ VERB_NODE,~-(SP) 3 2154 | 

4 AC DD 00006 PUSHL INPUT_DESC¢ ; | 

0000v CF 03 FB 00009 CALLS #3, DBGSNPARSE_UNDEF INE 3 
OO0E RET 3 2155 | 


; Routine Size: 15 bytes, Routine Base: DBGSCODE + 0BCB | 


vos~600- 


RERRRERERR GSAS 


Sooooocoo0ceoo 
PAAAATNIUI 


Wid OOOO A Pst O00 NOU PN OOOO ee 


SESS SSS ESSE SEES 


Sooooo°oeoeo 
NOUSWN—OO 


IN 


Wr OODOnion 


AAO UUIIUMN 


OOOO O0O0O000 0000009090909 090900008 SIN NII NINN NNO 


RORPGAPOPOASMADNPORGNONYD 2 2 9 PP? 9 PP? POPP? OP PPA BPP PS SS SS SS SS Ss Ss Ss Ss Ss SS SS SS 


———QOOo0ooo002O 
mM—OCOnNOulwh— 


PREPOPOPONIPONOPONDPONDPINOPIPIPININNRYD 2 8 2 9 0 tt tt 


10 
1b-Sep- 4 00:15:3 AX-11 Bliss-32 V4.0-7 
1 300-1382 $3 leia DEBUG. SRC JDBGDEF INE .B 
GLOBAL ROUTINE dbg$nparse_undefine (input_desc, verb_node, message_vect) = 


; Functional Description 


This is the top-level parse network for the UNDEFINE command. 
Routine Inputs 
i input_desc - A string descriptor for the remaining input. 
; verb_node - A pointer to the verb node for UNDEFINE, which 
; will be the top-level node in the command 
H execution tree. 
message _vect - An error message vector 
Routine Outputs 
A connend execution tree is constructed starting at the verb 
: node: 
! 
i eco ee ee eae ee Se ee 
! VERB | => | NOUN} => | NOUN | =>... 
; sooceeee-lLlLlLlLlLllC i HS HO SO SE = oe me ee we a 
: In each noun node, all the following fields contain information 
} about the symbol being undefined: 
; DBGSL_NOUN_VALUE - Points to a counted string with the name of 
: the symbol (the left-hand-side of the 
: definition). 
: DBGSL_ADJECTIVE_PTR = Contains an indication of whether the 
; definition was local (=) or global (==). 
; The string descriptor is updated to point past the 
. input that has been gorees. A completion code is returned: 
: STSSK_SUCCESS = The input was successfully parsed. 
; STSSK_SEVERE = There were errors during the parse. An error 
; message vector is constructed and returned 
in message_vect. 
"BEGIN 
P 
input_desc : REF BLOCK C,BYTE], ! The string descriptor for the 
} remaining input. 
verb_node : REF dbg$verb_node; ! The verb node with the UNDEFINE verb. 
BIND 
dbg$cs_all = UPLIT BYTE (3, ‘ALL"), 
dbgscs_global = UPLIT BYTE (6, ‘GLOBAL'), 
dbg$cs_key = UPLIT BYTE (3, KEY"), 
dbg$cs_local = UPLIT BYTE (5, “LOCAL"), 
dbg$cs_comma = UPLIT BYTE (1, dbg$k_comma), 
dbg$cs_cr = UPLIT BYTE (1, dbg$k_car_return), 
dbg$cs_slash = UPLIT BYTE (1, dbg$k_slash); 
LOCAL 
all_fla for UNDEF INE/ALL 


. ' Fla 
first tine, ' Flag for first time around the main loop 
globaT_ flag, ' Flag 


for UNDEF INE/GLOBAL 


3351 


Page 63. 


(14) 


Kk 10 
+ tit 19-300" 128% 90: 13:3 AX-11 Oi igeerg V4.0-74 
14-Sep-1984 12:16:4 DEBUG. SRC JDBGDEF INE .B832;1 
new_noun_node: REF dbg$noun_node, |! Pointer to a noun node 


noun_node: REF eoesreyn node, ! Pointer to a noun node 
saved_input_desc: dbg$sfg_desc; ! Copy of input desc 


3 


— > 4 oe 2 


FUN" O OONA LEWIN" OVOONOUE Ww 


SESS 


: Check for UNDEF INE/KEY. 

ch$move(8, .input_desc, saved_input_desc); 

IF _dbgSnmatch (saved_input_desc, dbg$cs_slash, 1) 
cme (saved_input_desc, dbg$cs_key, 1) 


status; 


ch$move(8, saved_input_desc, .input_desc); 
status = dbg$nparse_del_key(.input_desc, .verb_node, .message_vect); 
v NOT .status 


N 
RETURN sts$k_severe; 
ha sts$k_success; 


iw 


: Initialize flags. 
all flag = FALSE; 
me = TRUE; 
global. flag = TRUE; 
verb_node Ldbg$b_verb_composite] = 0; 
Look for qualifiers. 


WHILE dbg$nmatch (.input_desc, dbg$cs_slash, 1) DO 
SELECTONE TRUE OF 
SET 
Cdbg$nmatch (. input desc. dbg$cs_all, 1): 
all_flag = TRUE; 
/GLOBAL is not allowed since it is the default. 


Cdbg$nmatch (.input_desc, dbg$cs_global, 1)]: 
global_flag = TRUE; 


Cdbg$nmatch (.input_desc, dbg$cs_local, 1)]: 
global_flag = FALSE; 


COTHERWISE) : 
report_error; 


SSIERFEUNSSSSSVEGRONSLSSHVS ARUP =SSSVEAR AVS 


PD PPP BB BS EB EEE Et 


TES; 
For UNDEFINE/ALL, we don’t pick up a List of names 
if .all_flag 


POPIPIPIPSPIMOPIPINIPYAIPYNINININININIPINIPYAIPUAINININININIPINPIPINIPUNIPUNOPUPOPOPONoPonoponononofnonopornoprornrn 


ET ee ee ee 


SELLERS 
CONOUE WO 


GAAS 
CONOW 


10 
HERI GOS ESL MESS 


4 Page 65 
DEBUG. SRC JDBGDEF INE .832;1 (14) 


BEGIN 
tte zoledet.tlep 
BS verb_node Cdbg$b_verb_composite] = undefine_all_global 


verb_node Cdbg$b_verb_composite] = undefine_all; 
ectune sts$k_success; 


OWONAULSWN—O 


} Loop through the List of names to be undefined. 
WHILE TRUE DO 
BEGIN 


ye re ete 


: Check for end of Line. It is an error at this point. 
IF dbg$nmatch (.input_desc, dbg$cs_cr, 1) 
THEN 


o 
VW 

POIPSPIPIPIPIPIPIPUNINIPIPIPIPUPINUNIPPoNoPoPofnofropfnofnsp 
09.0909 090908 INNIS 
EWN =O Wn—o 


3; 21 

3 al 

; 21 

3; 21 

: 21 

3; 21 

3; 21 

; 21 

3; 21 

3; 21 

3; 21 

3; 21 

3; 21 

3; 21 

3; 21 

: 5 

3 183 

3 2168 

; 199 89 4 BEGIN 

: 2170 90 4 message _vect = dbg$nmake_arg_vect (dbg$_needmore); 
3 2171 91 4 RETURN sts$k_severe; 

; \7¢ > END; 

3 in Be Allocate a noun node to hold the name 

3 176 38 new _noun_node = dbg$get_tempmem (dbg$k_noun_node_size); 
3; 2178 98 ! We must Link in the noun node. If this is the first definition 
3; 2179 99 ! in the list, it is attached to the verb node; otherwise it 
3 Hs 309 is attached to the previous noun node. 

3 182 308 If .first_time 

; 218 0 THEN 

3; 2184 she 4 BEGIN 

3; 2185 05 4 first_time = FALSE; 

3: 2186 $09 4 verb_node Cdbg$l_verb_object_ptr] = .new_noun_node; 
3; 2187 07 4 noun_node = .new_noun_node; 

3; 2188 08 4 noun-node Cdbg$l-noun-link) = 0 

3; 2189 09 4 END 

3; 2190 10 4 

3: 2191 7. 2 

3 136 \ 4 

3; 219 13 4 noun_node Cdbg$l_noun_link] = .new_noun_node; 

3 2194 14 & noun_node = .new_noun_node; 

3; 2195 15 4 noun_node Cdbg$l“noun= Link) = 0 

3 139 16 END; 

3 219 1 

3; 2198 18 ! Now we read the name that is being undefined and store a 
3: 2199 1 ! pointer to the counted string in the value field of 

3 soy 9 , the noun node. 

3 220 IF NOT dbg$nread_name (.input_desc, 

3 08 4 noun nea’ CdbgSi_noun-vatued, 

3 2204 4 -mesSage_vect 

3 2205 5 HEN 

; 2206 6 RETURN sts$k_severe; 


i FINE 


07 


IF .global_fla 
THEN? a 


EXITLOOP; 


EXITLOOP; 
D 


SNEAFUNSSSSLEARUN TS cane nnn ose 
MEWN OO OOBNOUES WN" OVDONOUE WO 
TTT www oP oY oe? at a et et et et 

NOUR WN CO ODNAUEWN MOCONOUSWN—OOON 


Rororofononorornofonofory 
WANA WWW 


INF O# 


4C 41 42 


4C 41 


4C 
4F 
59 
43 


report_error; 


OoofloLloFfofo 


= SON WNIO Sw 


2 10 
at 
14-Sep-1 


We are all done. Return success. 
RETURN sts$k_success; 


0#250 L1:2343 
: | heteranned LOCAL symbol NOUN -NODE is probably not initialized 


OODC P.ABL: 


) 
BReo P.ABM: 


SP 


Check for the global qualifier on the name. 
ees (.input_desc, dbg$cs_slash, 
ir Soeemmaten (. input desc, dbg$cs_global, 1) 
noun_node (dbg$l_adjective_ptr] = define_global 


1) 


5:3 38 AX-11 Bliss-32 V 
DEBUG. SRC pagberl 


noun_node [dbg$l_adjective_ptr] = define_global; 
Check for exhausted input. If so, exit the loop. 
if -input_desc Cdsc$w_length] EQL 0 


Now check for comma, indicating more in the List. 
if Not dbg$nmatch (.input_desc, dbg$cs_comma, 1) 


DBGSPLIT,NOWRT, SHR, 


3 

\ALL\ 
\GLOBAL \ 
\KEY\ 
\LOCAL\ 
1, 44 


1,1 
gt 


Se 


rerercr 
Samow 
zovesm 


PIC,0 


Pen et ie aes ane a de ML”, @ 99S. Ro Se eR en 


GDEF INE -Sep- :15: - -32 V4.0- 
vOe-000 We=Sep-198e Aosleres — EoeauG. SRCIOBGDEF INE -653; 1 Page 185 


«PSECT DBGSCODE,NOWRT, SHR, PIC,0 


03FC 00000 ENTRY DEGSNPARSE_UNDEF INE, Save R2,R3,R4,R5,R6,- ; 2156 
9 00000000" EF 9€ 0000 MOVAB DBGSC§ SLASH, RO : | 
4 §009009 G 60 9 86 MOV DBGSNMATCH, RB ; 
3 “oS 18 Bout’ INBUT DESC, R6 + 2221, 
6E ry § p 001 MOVC3 #8, (R6), SAVED_INPUT_DESC : 
1 DD 0018 PUSHL #1 : 2222 
9 DD 0001D PUSHL R9 : | 
08 AE 9F OO01F PUSHAB SAVED_INPUT_DESC ; 
68 Q Fe 0 0 2 CALLS #3, DBGSNMATCH : 
2 0 £9 000 LBC ‘ 1$ ; 
01 oD 00028 PUSHL 3 2224 
Fe AD 9F O002A PUSHAB DBGS$CS_KEY : 
0 AE 9F 0002D PUSHAB SAVED_INPUT_DESC : 
£8 Q FB 00 9 CALLS #3, DBGSNMATCH : 
15 0 003 BLBC —_«aRO.:*1 ; 
rx. 6E 08 28 00036 MOVC3 #8, SAVED_INPUT_DESC, (R6) : 323 
7E 08 ac 7D 003A MOVQ  VERB_NODE; (SPY 3 2231 
36 DD 0003E PUSHL : 
0000v CF é FB 00040 CALLS #3, DBGSNPARSE_DEL_KEY ; 
65 9 ES 00045 BLBS § STATUS, 7$ + 223 
00F3 31 00048 BRW + 223 
52 D4 00048 1S: CLRL = ALL_FLAG + 226 
57 07 DO 00040 MOVL #1, FIRST_TIME > 226 
55 01 oO te MOVL #1 GLOBAC FLAG 3: 224 
53 08 aC DO 0005 MOVL VERB NODE, ~R + 226 
01 «As (94 90057 CLRB 3=—s«41 (R39 ; 
01 DD 0005A 2s: PUSHL # + 226 
0240 8F BB 0005C PUSHR #*M<R6,R9> F 
68 03 FB 0006 CALLS #3, DBGSNMATCH : 
7 0 £9 0006 BLBC =E._«aRO._:« S$ : 
01 DD 00066 PUSHL #1 > 2251 
E7 Ad 9F 00068 PUSHAB DBGSCS_ALL ; 
36 DD 00068 PUSHL R : 
68 03 FB 0006D CALLS #3, DBGSNMATCH : 
01 50 p1 0007 CMPL =e RO. #1 F 
05 if} 007 BNE ; 
52 01 00 0007 MOVL #1, ALL_FLAG 3 2252. 
Fo 11 078 BRB 2$ : | 
1 po 7A 38: PUSHL #1 : 2259 
F6 «=AD «OF 0007C PUSHAB DBGSCS_LOCAL : 
56 DD 0007F PUSHL ; 
68 FB 0081 CALLS #3, DBGSNMATCH : 
01 0 D1 00084 CMPL =e RO, #1 : 
. 0087 BNE : | 
5 D4 0 9 CLRL GLOBAL FLAG > 2260 
d 11 0 BRB ; 
1 pp 4$: PUSHL #1 > 2262 | 
FE AD OF F PUSHAB DBGSCS_CR : | 
56 DD 00092 PUSHL R : 
$8 : FB 94 CALLS #3, DGSNMATCH : 
F E8 00097 BLBS RO. 12$ : 


+ 


Page 68. 
11 é; -11 Bliss-32 V4.0-74 (14) | 
=Sep-1986 00:15:3 AX FINE .B32;1 
NE Ve-Sep-1986 foiieies — Epgauc. SRcdoBGbE | 
vOu-000 0088 31 OQO09A ts ht FLAG, 8$ 33 4 
10 ; 8 BooaD BLBC GLOBAL FLAG. 6S 3 2274 
“8 1 QOOA RS | 3) : $378 
; 1 $0 Ao gS: MOVE TTR ; 2287 
Fe ADF 0008 PuSI® Becscs oe 
2 Shee i eo am 
2 EO BR0BA PUSHL a ; 
6 OT FB ate CALLS 1, REY NOU = 2302, 
~ BB BBR” Sh RLRLea es 
” 27 D4 a HOVE sll NODE, 8(R3) ; 2307 
a3 2 ¥ BRB 108" UN NODE) : $314 
“7 2) ae erent £ 
ne 3 De 00008 CLR Ae eeaee veet : 5333) 
08 A2 OODE PUSHL MESSAG : | 
~ 85 Db 00E PUSHL = NOUN. NOBE : | 
PUSHL : 
08 Pe ODES CALLS Bg yee: ; 2330 
o000v. ¢F 83 ES DOOEA Puen at” pa peat 
ar BB OOOEF PUSHR — BAACRGARO> : 
Oeee OPE Baers CALLS #3, DB + 9330) 
68 80 ES oours LBC RO. 168 ; | 
49 8) bb ooorS PUSHL ame Ries | 
8 Ad SF OOORB PUSHAB DBGSCS_GL | 
E 56 DD a019p CALLS #3, DBGSNMATCH Foo | 
oe a1 DO 00106 MOVL " 4 (NOUN_NODE ) pms 
04 = Ae 6 11 0010A BRB. it ; | 
Tne RING 116 Ft eh cscs_ on ae 
re 8 bb eee CALLS a3, DaGSNMATCH 
OF 80 ES OO119 128: PUSML #164088 cs asad 
nn rB OF CALLS #1, DBGSNMAKE_ARG_ : 
000000006 ¢¢ 12 11 001 R6 : 
go DD Bo! 1 etek gtr #1, DBGSNNEXT_WORD 
000000006 00 8) bb a | ate Pe DBGENSYNTAX ERROR 
00000006 00 d bO OO18A 148: ROVE ROL BMESSA | 
Seas 3 2 DO MOISE 158: OV #4, RO ; 237 
04 0014) OBAL_FLAG, 17$ ; ; 
04 a EB a "08: Abve Hl, , #CROUN_NODE) ; 2343 | 
04 A2 ; 149 178 TSTW ; 
93 $3 dots BEQL (88° 


11 
ihese -1984 00:15:3 AX-11 Bliss-32 V4.0-74 Page 69 0 
12-80 8-1 3c 90:13:28 DEBUG. SRC IDBGDEF INE .B3 31 ° (14) \ 
01 pp oie PUSHL #1 3 2349. 
FC «=6—AG) OF O014F PUSHAB DBGSCS_COMMA : 
8 DD 00152 PUSHL R : 
66 4 154 CALLS #5, gee : 
° f 157 BLBC RO, 18$ : 
FF 1 OO15A BRwW : 
50 01 DO 0015D 18$ MOVL #i, RO ; 2356) 
04 00160 RET : 2357 


; Routine Size: 353 bytes, Routine Base: DBGSCODE + OBDA 


SSSIEAF 


ooo 
Wwr— 


: ig 3g 
3 2241 60 
3 ¢ 61 
3 4 66 
: 44 6 

3; 2265 64 
3; 224 65 
3 4 08 
: 2248 6 

$536 $5 
: 24 39 
; 225 71 
: $582 os 
; $3¢ 37% 
3; 2256 75 
3; 2257 $378 
3; 2258 2377 
Be ORR 
: $see $340 
3; 226 2381 
$507 $388 
: $5e¢ at 
3: 2266 2385 
3 67 386 
3; 2268 387 
3 69 388 
: 70 389 
3 71 390 
: 2272 391 
3; 2273 39 

3 2274 39 

3 75 394 
+ 
: 2278 399 
3; 2279 398 
; 2280 399 
: $58) 401 
; AY 40 
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SOUT INE dbg$nparse_del_key (input_desc, verb_node, message_vect) = 
Functional Description 
This is the parse network for the DELETE/KEY command. 
Routine Inputs 


input_desc - A pointer to a string descriptor for the 
remaining input. 
verb_node - A pointer to the verb node for the DELETE 


command, which will be the top-level 
node in the command execution tree. 
message_vect - A pointer to an error message vector. 
Routine Outputs 


A ane execution tree is constructed starting at the verb 
node: 


' The DBG$B_VERB_ COMPOSITE field contains a 


 atalatataed value for the BELETE/KEY command. 
‘ADVERBO: 

: The noun node has the following information: 
oo----- DBG$L_NOUN_VALUE - A pointer to a descriptor 
tADVERB1; that contains the key-name. 
tADVERB2: The adverb nodes appear as follows: 


DBGSL_ADVERB_VALUE - Value or location of data 
or this qualifier. 
DBGSL_ADVERB_LINK = Link to next Adverb-node. 


The gt descriptor is updated to point past the 
input that has been parsed. A completion code is returned: 


i 
! 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i oe ee SS eS 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
‘ STS$K_SUCCESS = The input was reg tg body parsed. 
: STSSK_SEVERE = There were errors during the parse. An error 
: message vector is constructed and returned 
in message_vect. 


BEGIN 
input_desc : REF BLOCK C,BYTE), ! String descriptor 
verb_node : REF dbg$verb_node: 
ND 
dbg$cs_all = UPLIT BYTE (3, ‘ALL'), 
dbg$cs_log = UPLIT BYTE (3, LOG"), 
dbg$cs_state = UPLIT BYTE (5, "STATE"), 


Pa 70 
915) 
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DBGDEF INE 1-Se 1984 00:15:3 AX-11 Bliss-32 V4.0-74 Page 71 
Oa- 1e-88b-198e 3:16:45 — EoeauG. sRcSpBebEr Iie 099; 1 9045) 
H 38 415 dbg$cs_NO = UPLIT BYTE (‘NO’), 
3; 2e9 418 dbg$cs_left_paren = UPLIT BYTE (1, dbg$k_left_parenthesis) 
: ss 4) dbg$cs_right_paren = UPLIT BYTE (1, dbg$k_right_parenthesis), 
$ 418 dbg$cs_comma = UPLIT BYTE (1, dbg$k_comma), 
; 2300 419 dbg$cs_cr = UPLIT BYTE (1, dbg$k_car_return), 
; 2301 420 dbg$cs_equal = UPLIT BYTE (1, dbg$k_equal), 
: Mt : 1 dbg$cs_slash = UPLIT BYTE (1, dbg$k_slash); 
: 2304 158 LITERAL 
>; 2505 424 dbg$k_lowest_qualifier = 0. ! Corresponds to the adverb-nodes 
3 5] 425 dbg$k_all = Q, ! in the structure that is built. 
; 230 4 $ dbg$k_log =i, 
: 2308 4 dbg$k_state = : 
3 4 : 3 dbg$k_highest_qualifier = 2; | 
: 2311 430 LOCAL | 
: \ 431 all flag : INITIALC(FALSE), ' True if /ALL 
; 231 4 ; define_kind INITIAL(O), ' Value of DELETE/KEY quel itier 
; 2314 4 noun_node REF dbg$noun_node, ! Pointer to a noun node 
; 2315 434 new_noun_node : REF dbg$noun_node, ! Another pointer to a noun node 
3 $318 435 adverb_node : REF dbg$adverb_node, ! Pointer to a noun node 
: 2317 436 new_adverb_node : REF dbg$adverb_node, ! Another pointer to a adverb node 
>; 2318 437 state_name_node REF dbg$state_name_node, ! Pointer to a state-name node 
3; 2319 438 new_state_name_node REF coarecete name_node, ! Another pointer to a state-name node 
; $50 44 : ptr REF VECTORE BYTEJ, ! Points into input string | 
: status, 
: 356 44) temp_key_desc : REF dbg$stg_desc, ! String desc. for DELETE/KEY symbols 
3 232 seeg § key_no, ! Flag for NOxxx qualifier 
3 2324 244 define_key_value; ! Value for the qualifier 
; 2325 444 
; 2326 445 
3 $50 vr | } Check whether we are on a system that allows keypad input. 
; 33 9 448 ; iF NOT .dbg$gb_keypad_input | 
i 2 $0 449 HEN Adenia clin ter 
3 tte rt ; SIGNAL (dbg$_nokeydef); 
; $335 sees ! FILL in the fact that this is a DELETE/KEY command in the verb node. 
; $30 oth 2 : And clear the noun Link value. | 
; 2336 Sieg verb_node Fdbg$b_verb_composite] = undefine_key; 
; : 7 +2 verb_node (dbg$l_verb_object_ptr] = 0; 
: 2339 458 ! Build adverb List with defaults. 
at tee! 
: § ree new_adverb_node = dbg$get_tempmem(dbg$k_adverb_node_size); ! Get first node 
; oh 168 verb_node (Cdbg$l_verb_adverb_ptr] = .new_adverb_node; 
: 302 re ¢3 adverb_node = .néw_adverb_node; 
3 2347 466 adverb_node [dbg$b_adverb_literal] = dbg$k_lowest_qualifier; ! Initialize first node 
3 <8 46 adverb_node [dbg$l_adverb_value] = 0; 
; $3 $08 adverb_node [dbg$l_adverb_link] = 0; 
; 334 470 define_kind = dbg$k_ lowest qualifier + 1; ; : 
3 2352 471 WHILE Tdefine_kind CEQ dbgSk_highest_qualifier DO ! Build rest of adverb List 


iecSeortgge 98:15:33 
BEGIN 


new_adverb sede = et se eH Seber a adverb_node_size); 


DEE ANE 


AX-11 BL bigs 
DEBUG. SRCJD 


advérb_node (dbg$l_adverb -new_adverb_fode;~ 
adverb_node = .new_adverb_node; 
adverb_node ,fonese adverb_literal] = .define_kind; 
IF Fei tet inet nd EQC dbg$k_state 

BEGIN 


! If the adverb-node is for the state name, let the adverb-node-value 
i be a pointer to a state-name-node that points to a descriptor with 
! the current state name. 


lene. key_desc = sebasten 5 we oy 
temp_key_desc ve 

temp_key_desc dtype = dsc$k _dtype_t; 
temp_key_desc oeceb- class = dsc$k_class_d; 
temp_key_desc Cdsc$a_pointer] = 0; 


DONA UILS WN —"OOONO NEW 
CoC C9 COCO COCO COCO OO NI NIN INNS 
SOOWONAVNE WN" OOONOUE wr 


BPEL EPP PPLE EEE 


This will return the current state name 

smg$set_ default_state(dbg$gl_key_table_id, 0, .temp_key_desc); 
state_name_node = db gioet. tempmem(dbg$k_state <name. size); 
state_name_node dbgt L_state_name_ptr] = -temp_ key_desc; 
state _name_node (dbg$l"“state_name_Link] = 

adverb_node (dbg$l_adverb_value] = .state_name_node; 


N 
ELSE 
In all other cases, let the default be zero. 


adverb_ node C[dbg$l_adverb_value] = 0; 
for 'ine kind = .define_kind + 1; 
shuerh node Cdbg$l_adverb_Link] = 0; 
WHILE ae dbg$nmatch(.input_desc, oenes cr, 1)) AND 
(,input_desc Cdsc$w_length) GTR 0) BO 
BEGIN 
Hag ennatent, Spun A006. dbg$cs_slash, 1) 
BEGIN 
Find out what kind of qualifier it is 
! Initialize value 


AANA. ALANNA AAAI 
QVFFRANLSSSELEARE 3 


yf deny key_value = 0; 
key_NO ="FALSE; 


! Check for a NO qualifier 
WniLe cusee. (1, UPLIT(* "), 1, CHSPTR(.input_desc Cdsc$a_pointer])) DO 
CHSPLUS(.input_desc Cdsc$a_pointer], 1) 


Aww hal ah ah ah ah sh sh ab ah Ab db hh Ab Ab Ab db ab ab db ab db ob Ab Ab Ab Ab 
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input_desc Cdsc$a_pointer] = 
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irput.dese Cdsc$w_length] = .input_desc Cdsc$w_length] - 1; 


SPP 


if cise Ce, CHSPTR(dbg$cs_NO), 2, CHSPTR(.input_desc Cdsc$a_pointer])) 


BEGIN 

q-key NO = TRUE; 

input desc tdscfa_pointer] = CHSPLUS(. input desc Cdsc$a_pointerd, 2); 
srgut.Sone dsc$w_length] = .input_desc Cdsc$w_length] = 2; 


! Set Define_key with qualifier code, and get value of define_key_value. 
SELECTONE TRUE OF 
SET 


Cdbg$nmatch(.input_desc, dbg$cs_all, 1)] : 
BEGIN 


define_kind = dbg$k_all; 
define_key_value = T; 
all_flag = TRUE; 

IF <d_key_NO 

THEN 


report_error; ; 
IF .verb_node Cdbg$l_verb_object_ptrJ NEQ 0 


THEN 
= SIGNAL (dbg$_conflict); 


Ft et kek ek_ ek eke kee ee ee ee eee 


WIAA AAANIITUNININININIUY 3 
MEW OO OONOU EWN" OVOONOUSWUN oO 


Cébgsrmatcht. input desc. dbg$cs_state, 1)] : 
define_key_value = 0; 
define_kind = dbg$k_state; 
IF NOT~.d_key_NO 
THEN 


GIN 


MEUM 9 OONAUE WN @ O ODODNOAUE WN OO ODONOUE WOO 


Avr wal wal al al ab Ab Ab Ah AL AL AL AL AL ALT AL AL AL AL AL AL AL AL AL AL AL AL AL AL MAL AL AA AA AL AR ALY AL Ad 
CSSD clo ob ee ene Sob abso tees 
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temp_key_desc = Cegtpet _togenent ec) 
temp_key_desc(dsc$w_length] = 0; 
56 temp_key_descldsc$b_dtype = dsc$k_dtype_t; 
568 temp_key_descldsc$b_class = dsc$k_class_d; 
283 temp_key_desc(dsc$a_pointer] = 0; 
571 ! Look for = 
in , 
574 IF NOT dbg$nmatch (.input_desc, dbg$cs_equal, 1) 
575 THEN 
278 report_error; 
57 
278 ' Look for a left paren 
330 
23) if Gogénaatch (.input_desc, dbg$cs_left_paren, 1) 
2 BEGIN 
585 ! Pick up the first state name 


FAAAAAAAA AAO 
2 tt  IOO 
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stores = dbg$read_key_info (. — desc, 
temp_Key_desc, 
message. vect); 
IF NOT .status 


RETURN sts$k_severe; 


new. state “~ node = eek ve myer at state_name_size); 
sta? »_namé_nodé = nets name =noe 

state_name_node Fabgst state_name_ "= -temp_key_desc; 
state_name_node [dbg$l"state_name_ ink) = = 0; 

definé_key_value = .state_name_node; 


WHILE SS aaa (.input_desc, dbg$cs_comma, 1) DO 
icon. key_desc = dbg$get gtonpmen(2); 
temp_ “hey" desc dsc$u "tend 0; 
temp_key_desc(dsc$b_ “atyocd = dsc$k _dtype_t; 
temp_key_desc(dsc$b_class = dsc$k_class_d; 
temp_key_desc(dsc$a_pointer] = 0; 
Pick up the next state name 
seotus = dbg$read_key_info (.input_desc, 
.temp_Key_desc, 
-message_vect); 
IF NOT .status 
RETURN sts$k_severe; 
new _state_name_node = ee Ronpage( gegen. state_name_size); 
state_name_node [dbg$l_s name_link] = .new_state_name _node; 
state_name_node = .new_state_name_node; 
state_name_node Cabos! - state_name_ptr) = .temp_key_desc; 
state_name_node [dbg$l_state_name_link] = 0; 
END; 


Eat right paren 


fon dbg$nmatch (.input_desc, dbg$cs_right_paren, 1) 
report_error; 
END 


BEGIN 
} Pick up the only state name 
status = dbg$read_key_info (.input_desc, 


.temp_Key_desc, 
-message_vect); 
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IF NOT .status 
RETURN sts$k_severe; 
new_state grease node = bys nny gm cae state_name_size); 
state_namé_node = news fhame_ tr 
state_name_node fab \“state_name_ ptr “feme. key_desc; 
state_name_node [dbg$l"state_name_ = 
definé_key_value = .state_name_no hy 
END; 


bdbeionatemt. -input_desc, dbg$cs_log, 3)] : 


POFV LVS 


VFN —OOONOUSE 


define_key_valu : 
det ine “kind = dbgs $k_ log; 
es -d_Key_NO THEN define_key_value = 1; 


WN SO OONAV EWN" OOONOuvew 


SESSESCOCTOSOOSCT TEESE 


COTHERWISE) : 


o 
~ 
oO 
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; 
5 
5 
5 
5 
5 
5 
54 
54 66 report_error; 
548 66 $3 
549 668 
329 669 ' Process the qualifier 
226 671 IF zdet ine heyvelue NEQ 0 
55 ore THEN 
554 sor BEGIN 
555 674 adverb_node = .verb_node ([dbg$l_verb pever® pers 
556 675 WHILE Se adverb_node™ Cdbgsb_ a verb. Literal) REQ -det ine. kind) DO 
557 O76 erb_node = .adverb_node ae Bg$t_ aud, nkJ; 
558 67 edvers, vnods Cdbg$l_adverb_value -define_key_ value; 
559 678 END; 
560 679 
561 680 END ! End of qualifier look up 
266 681 
56 68 ELSE 
564 68 
20? ° 3 ! Process key name 
S67 if 4 -vere note Cdbg$l_verb_object_ptr] EQL 0) AND (NOT .all_flag) 
569 688 BEGIN 
570 689 
571 690 ! Get key name 
ng $92 
37 69 temp_key_desc = 3 tg cA Rogpnente): 
575 694 temp_key_desc(dsc$w = 0; 
278 695 temp_key_desc(dsc$b_ “dtyee) = d5c $k _dtype_ i 
3 696 temp_key_desc(dsc$b_class ‘~~ “class_d 
78 69 temp_key_descldsc$a_pointer] = 
579 69 status ="dbg$read_kéy_info (. input desc, 
580 69 -temp_Key_desc, 


$4 
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H 1 7 4 -message_vect); 

3 § f ? F NOT .status 

; ¢ f : 2 RETURN .status; 

: f 5 2 } Make noun node for key-name string 

; 707 4 

3 9 f 2 new noun_node = dbg$get_tempmem(dbg$k_noun_node_size); 
; 2591 710 4 verb_node Cdbg$l_verb_object_ptr] = .new_noun_node; 
3 35 711 4 noun_node = Se | deer node; 

; 259 7 § 4 noun_node (dbg$l_noun_value] =_.temp_key_desc; 

3; 2594 7 4 noun_node [dbg$l_adjective ptr} = 0; 

: 2595 714 4 noun_node [dbg$l-noun_Link] = 0; 

; 38 715 4 END 

3; 259 7 § 4 

; 2598 7 

3; 2599 7 8 report_error; 

: 2600 7 

; ret 4 Y END; ! End While 

; 260 7 § ! Check to see if key-name string or /ALL has been entered. 

3 2604 7 ! If not, return a message and error status. 

Be RE 

; $09 726 IF (.verb_node Cdbg$l_verb_object_ptr] EQL 0) AND (NOT .all_flag) 
3 2608 727 THEN 

3 2609 8 BEGIN 

3; 2610 729 message _vect = dbg$nmake_arg_vect (dbg$_needmore) ; 

: 2611 730 RETURN sts$k_severe; 

; ole 731 END; 

3 261 7 ; 

3 Sele 7 RETURN sts$k_success; 

3; 2615 734 #1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


03 OOOF7 P.ABS: .BYTE 3 
4C 4C 41 OOF8 eASCII \ALL\ 
03 OOOFB P.ABT BYTE 
47 GF & Sere eASCII \LOG\ 
g FF P.ABU BYTE 
45 54 41 54 1 eASCII \STATE\ 
GF of 1 P.ABV: .ASCII \NO\ 
+] 1 1 P.ABX: .BYTE 1, 41 
C 1 1 P.ABY: .BYTE 1, 44 
D } 10D P.ABZ: .BYTE 1, 13 
D 10F P.ACA: .BYTE 1, 61 
eF 1 0111 P.ACB: .BYTE 1, 47 
0113 -BLKB 1 
00 00 00 20 00114 P.ACC: .ASCII \ \<0><0><0> 
DBGSCS_ALL= P.ABS 
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16:4 DEBUG. SRC 
_LOG= P.ABT 
“STATES P. ABU 
“NO= P. ABV 
“LEFT_PAREN= P.ABW 
“RIGHT_PAREN= P.ABX 
“COMMAS TABY 
“CR= P.ABZ 
“EQUAL= PACA 
“SLASH= P.ACB 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 


OFFC 00000 soatennaiheate pst aKEY: 
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paye Re. oR3,R4,R5,R6,R7,R8,RI,R10,R11 


DEF INE_KIND 
DEGSG “KEYPAD_INPUT, 1$ 


#1, LIBSSIGNAL 
VERB_NODE, R9 
#3, TRO) 

B(RO), 12¢SP) 
a12(SP) 


a 
#1, DBGSGET TEMPMEM 


VERE KIND 
DE EFINE _KIND, #2 


r 
#1, DBGSGET TEMPMEM 
RO, NEW _ADVERB_NOD 
NEW_ADVERB_ NODES 8(ADVERB_NODE) 
NEW” ADVERB NODE 
DEF INE “KING. (ADVERB_NODE) 
DEF INE-KIND, #2 
i. DBGSGET TEMPMEM 
rauahi9ae" (TERE KEY_DESC) 
4(T ¥_DESC)~ 
TEMP REY DESC 


ie KEY TABLE ID 


SMGSSET_DEFAOLT_STATE 
passer t TEMPMEM 
7 TE _NAME _NODE 
Y BESC,” (STATE_NAME _NODE ) 
AME NODE) 


E NODE 
E Rane fr 4 (ADVERB _NODE) 
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12-80-1884 9 :16 ‘38 DEBUG. SRC RCIOBGDEF IN F INE “238 
03: «171 A Fars 4$ ne nose) 
«8 eS Hit GceNENES 
Q A ere VERB_NODE) 
oR BRR eR Hhavena pony 
cooneoo: ft BP Hse Bt — 
52 0p 000s = PUSH REO 
aneeantts 99 0 4 oe BLBC RO, 8S 
© MH Bo, 
i 7$ 
ee: 
o? 8? f PUSHAB DBGS$CS_SLASH 
00000000° gE 9F 000D in Re 
é 4 it CALLS #5,  ppmentoethos 
000000006 0 2 4 44: CALL : 
a3 0 £8 2000 BGS 80, 98 
o1fd Hy itd 9$ CLRL DEF I NE KEY. VALUE 
SA De 0007 CURL BEY RO. 
36 3 Oe Ot hanes : CMPB P.ACC, a0(RO) 
00 B0 00000000' fe 3 Goars 10$: a | vis 
$3 4] 000F ave. (nd) 
6 B7 000F9 DEC its 
Pp 11 OOOFB BRB (RO) 
00 B0 00000000° EF 61 OOOFD 11$: wt beGSCS_ NO, a0 
be i bo ig? MOVL “i, OR ae NO 
8 bee see ee ee 
62 02 A2 00100 2 Far ty 
ae SF oes PUSHAB DBGSCS_ALL 
00000000' EF 9F 0011 sey id 
¢ 4 Botta CALLS #3, DBGSNMATCH 
cece ae 50 bi Goat = ERB 
He Ca ac eee 
” Ae 0 OB boy H Aa: ote oh io’ es 
. oC : 3 a TSTL De ESP) 
b 13 ois get TE 
e0dzs158 f oe oi D CALLS #1, LIBSSIGNAL 
Seeneens. o 0180 fe Sian 13$: RW 298 
o0000' et OF Soleo optelthe beescs _STATE 
ee 3:3 a a ore 
000000006 ot 50 of : i mn 
O19 3) 138 FINE_KEY VALUE 
160 15$ CLRL D 
6E 3} ti 133 MOVL + DEFINE KIND 
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vitae te 1ergee- 138s P8i1gizg =O ade. Bac Sbeaoes the 20 733. ° 15) 
oc A EB 16 BLBS D_KEY_NO, 138 ; 3562, 
000000006 ¢ FB O016A CALLS Af DBGSGET_TEMPMEM F | 
0 DO 00171 MOVL RO. TEMP_KEY_DESC ; 
63 020E0000 BF 00 00174 VL #34471938, (TEMP _KEY_DESC) : 366 
04 A3 D4 001 CLRL 0-4 ( TEMP_KEY_DESC) ; 3 | 
01 BD 176 PUSHL + 3574) 
00000000" EE F 001 PUSHAB DBGS$CS_EQUAL : 
DD 001 PUSHL : | 
000000006 00 6 FB 1 CALLS #3, DEGSNMATCH : | 
18 5 018F BLBS RO. 18$ : 
00 1 001 168 BRWw 23$ : 2575, 
DD 00195 17$ PUSHL R : | 
000000006 00 gi FB 13 CALLS #1, DBGSNNEXT_WORD : | 
000000006 00 01 FB OO1A CALLS #1. DBGSNSYNTAX_ERROR : | 
0187 31 O01 BRU 38S : | 
1 DD OO1AA 18$:  PUSHL #1 : 2581) 
00000000° EE OF O1AC PUSHAB DBGS$CS_LEFT_PAREN : | 
é DD 0018 PUSHL : 
000000006 00 0 FB 001B4 CALLS #3, DBGSNMATCH : | 
03 0 5 00188 BLBS RO. 19$ : | 
0086 31 001BE BRW 2 : | 
OC Oe BB bbica e opuh  StmERS TRS : $383 
0000v cr 03 FB 00106 CALLS #3, DBGSREAD _KEY_INFO : 
: 0 pO 001CB MOVL RO. STATUS : | 
5 5B ED OOICE BLBC STATUS, 1$ + 2590 
02 DD 00101 PUSHL 3 2596 
moose SPIRALS. pnctet tN oo Ps 
ef 08 AF D0 bo1b MOVL ¥ oS eare NAME NNODE STATE _NAME _NODE : 2595 
Se RBI || BE sata yeti a 
57 55 00 OOTEB MOVL E_NIME "NODE. OO EFINE _KEY_VALUE : 2598 
58 04 A5 SE OO1EB MOVAB at (RSD : : 2618 
01 BD OO1EF 20$:  PUSHL : 2600 
00000000" EF F OO1F1 PUSHAB DBGSCS_COMMA : | 
DD OO1F7 PUSHL : | 
000000006 00 0 FB 01F9 CALLS #3, + DBGSNMATCH : | 
- 8o be O00 03 eth > 2602. 
. | 
000000006 Q i F 3 CALLS : DBGSGET | TEMPMEM | 
63 02060000 8F D F MOVL mo, TERE K (TEMP. KEY_DESC) > 2603 | 
04 A3 D4 1g CLRL 4 (TEMP_KEY_DESC)~ : 2606 
a $816 
0000v CF $f if CALLS #3, D DBGSREAD_ KEY_INFO : | 
28 0 D MOVL 3 | 
8 E9 O0ge 218: BLBC STATUS. 6s : 2613 
000000006 00 p F CALLS i. DBGSGET_TEMPMEM : | 
eee HY D ROVE Ard STATE NAME NODE™ (R8) > 2618 
g 3 AF D A MOVL § NEWTSTATE-NAME-NODE. STATE_NAME_NODE : 3618 | 
65 53 D MOVL TEMP_KEY_DESC,~ (STATE NAME NODES : 2620 


| el a a ee ea yy ee) sane Sonate 


11 
GDEF INE 16-Sep-19 :15:3 AX-11 Bliss-32 V4.0-74 
vi 1 =3007 138% 90: ai28 DEBUG. SRC IDBGOES Ie 63951 
58 04 as 9E 0024 MOV 4(R5), RB 
6 ps 4 CLRL (RB) 
AG 1 4 BRB 20 
0 bb 49 22$ PUSHL #1 
00000000' gf oF ji PUSHAB  peseenanerm” 
000000006 00 5 FB CALLS 4&3, DBGSNMATCH 
6A E A LBS ~=—s-_-RO, 298 
1 pp 9 D 238 PUSHL #1 
00000000' EF F F PUSHAB DBGS$CS_CR 
DD 00 65 PUSHL R 
000000006 99 Q FB 9 CALLS #3, DEGSNMATCH 
; BLBC =_-«aRO, 24 
00E0 31 00 BRW 37$ 
FFIE 31 00274 gas: BRW 17$ 
OC AC DD 00277 25$: PUSHL MESSAGE_VECT 
§ BB 0027A PUSHR #*M<R2,R3> 
O000v CF FB 027¢ CALLS #3, DBGSREAD_KEY_INFO 
58 0 00 00281 MOVL RO, STAT 
03 5B 58 0284 26$:  BLBS status, § 
0008 1 00287 BRW 9$ 
02 OD 0028A 278 PUSHL #2 
000000006 00 01 FB 99 8¢ CALLS #1, OBGSGET_TEMPMEM 
08 AE 50 D0 0029 MOVL RO, NEW STATE _NAME_NODE 
5 08 AF DO 00297 MOVL NEW STATE_NAME_NODE, STATE_NAME_NODE 
65 53 D0 99 98 MOVL §§_TEMP_KEY DESC, ~(STATE_NAME NODE 
06 AS D4 0029E CLRL  4(STATE_RAME_N 
57 55 DO 002A1 MOVL STATE NAME NODE, DEF INE_KEY_VALUE 
21 11 002A4 BRB 9$ 
3 DD 002A6 28S PUSHL #3 
00000000' ai 9F O02A8 PUSHAB DBG$CS_LOG 
; DD OO2AE PUSHL R 
000000006 00 03 FB 00280 CALLS #3, DBGSNMATCH 
01 50 01 00287 CMPL RO, #1 
z8 12 OO2BA BNEQ 3 
57 04 002BC CLRL DEFINE_KEY_VALUE 
6f 01 09 O2BE MOVL #1, DEFINE-KIND 
0 5A €9 002C1 BLBC OD_KEY_NO, 29$ 
57 01 D0 002C4 MOVL #T, DEFINE_KEY VALUE 
57 D5 002C7 298 TSTL EF INE_KEY-VALOE 
66 13 002C¢9 BEQL 4$ 
54 04 A9 00 002CB MOVL 4(R9), ADVERB_NODE 
6E 64 08 09 : 0 CF 30$ CMP ZV #0, #8, (ADVERB_NODE), DEF INE_KIND 
54 08 A p 8 06 MOVE GADvERB_Nove). ADVERB_NODE 
06 A 57 D0 8 DC 31$ MOVL EF INE_KEY_VALUE, 4(ADVERB_NODE) 
af 11 E BRB 4$ 
OC BE D E2 32%: TSTL 12(SP) 
4D 1 E BNEQ 5 
49 04 AE E E BLBS  ALL_FLAG, 35$ 
02 OD O02EB PUSHL @# 
000000006 1 F ED CALLS #1, DBGSGET_TEMPMEM 
0 D F4 MOVL R TEMP KEY_DESC 
63 02060000 BF D ‘7 MOVL  #34471938, (TEMP_KEY_DESC) 
4 Ad 04 rE CLRL 4(TEMP_KEY_DESC) 
C ac dd 0030 PUSHL MESSAGE_VECT 


See Se Se Se Se Se Se Se Ge Se Se Se Ge Se Se Se Fe Se Fe Se Fe Se Se Ge Ge Se Se Fe Se Se Se Se Ge Se Se Fe Ge Be Be Ge Fe Se Ge Ge Ge Fe Se Fe Fe Fe Fe Se Ge Se Se Be 


18-30-1964 00:15:32 VARA) BLiss=52_ v4. 0-742 


BB PUSHR #*M<R2 
0000v CF 5 F CALLS #3, 0 “DEGSREAD _KEY_INFO 
8 D B MOVL 
4 BE : BLBS erATUSS $ 
0 8B p 1 MOVL STATUS, RO 
4 BD 0081S 338: RUSHL 
000000006 00 0 F 1? CALLS #1, DBGSGET_TEMPMEM 
10. AE 0D 1 MOVL NEW _NOUR_NOD 
oc E 10 AE D MOVL NEW. NOUR. NODE, al2 (Se) 
4 10 AE DO 00 MOVL § NEW -NOUN"NODE, NOUN _NODE 
66 5 8 B MOVL TEMP_KEY DE $C, (NOUR _NODE) 
06 AB 7C E CLRQ 4(NOON_NODE 
FD7F 31 00331 348: BRW 6s 
01 DD 00 S$:  PUSHL 
00000000' EF 9F 00 PUSHAB DBGSCS_CR 
; DD 0033C¢ PUSHL R 
000000006 00 Q FB 03 : CALLS #3, DEGSNMATCH 
0c 0 5 34 BLBS RO, 37$ 
FE4A 31 00348 BRW 
0c BE D5 0348 36 36$ TSTL a12(SP) 
1 iF 0 4 BNEQ 
15 06 AE €E8 0035 BLBS ALL_FLAG, 40$ 
00028000 8F DD 00354 37$ PUSHL #164048 
000000006 00 01 FB 0035A CALLS #1, DBGSNMAKE_ARG_VECT 
0c BC 50 00 00361 38 MOVL RO, @MESSAGE_VECT™ 
0 04 DO 00365 MOVL #4, RO 
04 00368 RET 
50 01 DO 00369 40$:  MOVL #1, RO 
04 0036C RET 


; Routine Size: 877 bytes, Routine Base: DBGSCODE + 0D3B 


; 2616 2735 1 
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GLOBAL ROUTINE dbg$nexecute_define (verb_node, message_vect) = 
i Functional Description 


~ 
WAG 


This routine performs the action associated with the DEFINE command. 
Routine Inputs 


verb_node - The head of a command execution tree. This is built 
by the routine DBGSNPARSE_DEFINE or by the routine 
DBGSNPARSE_DEF_KEY in the case of a DEFINE/KEY command, 
ste tructure Ts described in the header of the 
u ° 
message vect - An error message vector. 


Routine Outputs 


New entries ney be made to the DEFINE symbol table. (See DBGLIB.REQ 
for documentation of the structure of the DEFINE symbol table.) 

Or, new entries are made to the key-definition table for the DEFINE/KEY 
command. This table is external to the debugger structures. 


MFWN—OOONOUS WN oO 


WW 


PAEAAAPAAAAEAA AAAS AAS 


morrrror 


nO 


The routine value is one of: 
sts$k_success = Success code. 
sts$k_severe - Error. An error message vector is contructed. 


BEGIN 


SS S555 


P 
verb_node : REF dbg$verb_node; 


LOCA 


L 
first_time, ! TRUE first time in loop 


' 
globaT_flag, ! TRUE for symbols defined with == 
noun_node : REF dbg$noun_node, ! Points to a noun node 
adverb_node : REF dbg$adverb_node, ! Points to an adverb node . 
replaced_flag; ' TRUE if definition already existed 


Check for DEFINE/KEY. 
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‘ if zverb_nodeldogte_verd_conposite) EQL define_key 
4 BEGIN 
66 81 LITERAL 
664 8 v_key_noecho = 0, 
665 4 v_key_terminate = 1, 
666 4 v_key_lock = 2; 
667 785 
668 78 LOCAL 
669 78 attributes : BITVECTOR (32), 
670 788 if state_desc_address : REF dbg$state_name_node, 
671 789 set_staté_desc_address REF dbg$state_name_node, 
or¢ 790 output_log, 
67 791 add_status, 
674 792 desc_ptr : REF dbg$stg_desc; 


ooo 
wr 
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aos 


14 

; We will set up the noun and verb pointers and proceed to walk 

! down the adverb List with the knowledge that the qualifier information 

! is in order, After checking the qualifiers, a call is made to the 
routine SMGSADD_KEY DEF to execute the command; if there is more than 

one state noted in Ehe if_state qualifier a call is made to 

SASSADD KEY Der to load each possible key definition. 

en 


' 
i 
! 
exit successfully, unless some error was found on the way. 


noun_node = .verb_node Fdbastverb_object ptr ; 
adverb_node = .verb_node [dbg$l_verb_adverb_ptrJ; 
attributes = 0; 
! ECHO qualifier 


attributes C[v_key_noecho] = .adverb_node tdbgst edverb_valued; 
adverb_node = .adverb_node Cdbg$l_adverb_Link); 


! IF_STATE qualifier 


if state_desc_address = .adverb_node ([dbg$l_adverb_value); 
adverb_node = .adverb_node (Cdbg$l_adverb_LinkJ; 


! LOCK_STATE qualifier 


attributes Cv_key_lock] = .adverb_node Edbgst adverb_value]; 
adverb_node = .adverb_node Cdbg$l_adverb_LinkJ; 


' LOG qualifier 


output_log = NOT .adverb_node [dbg$l_adverb_va 
adverb_node = .adverb_node ([dbg$l_adverb_link] 


! SET_STATE qualifier 


set_state_desc_address = .adverb node (Cdbg$l_adverb_valueJ; 
i T.set_State_desc_address EQL 0) AND (.attributes Cv_key_lock]) 


N 
SIGNAL (dbg$_conflict); 
adverb_node = .adverb_node (Cdbg$l_adverb_Link]; 


! TERMINATE qualifier 


attributes Cy hey. terminate? = ,adverb_node Paps dyer} values 
IF (,attributés [V_key_noecho]) AND (NOT .attributés Cv_kéy_terminate)) 


SIGNAL (dbg$_conflict); 


' Execute the define-key command by calling smg$add_key_def. 
! Loop until no more if_state names exist. 


WHILE TRUE DO 
! Add the key definition 


tue]; 


DBGDEF INE 16-56 $ep-1984 00:15:3 AX-11 Bliss-32 V4.0- Page 84 
vi =3e- 138 99:18:2 DEBUG. SRCTDBGOEY TNE 203951 9° 16) 


3 27 ¢ 50 4 add_status = smg$add_key_def (dbg$gl_ key. yafable id 

3; e7 1 4 “nqun fiode~Ldbg$T_noun_yalue], 
3 f ¢ ¢ ? Af {_sfate.¢ desc_address Ldbg$l_state_name_ptr], 
3 attr 

3 ar § 4 4 -noun_node *Cdbg$l adjective. ptr, 
3 27 5 4 .set_State_desc_address); 

3 a7 § 4 IF NOT .add_status 

; 2739 57 4 THE 

: 2740 28 4 SIGNAL (dbg$_defkeyerr); 

3; 2741 859 4&4 IF .output_log 

: re 860 4 H 

3; 274 861 4 moptpaee o Sefkes. 

: 2744 Hu 4 desc “address Cdbgsts state_name_ptr], 

3 rt yt ? -noun_ moat dbg$l_noun_value 

3 2747 865 4 if =State desc_address = .if state_desc_address [dbg$l_state_name_Link]; 
3 2748 8 4 IF~.if_state_desc_address EQL 0 

3: 2749 867 4 TH a 

; 2750 868 4 EXITLOOP; 

3; 2751 869 $ 

5 Teg 2870 

3; 275 871 RETURN sts$k_success; 

3; 2754 ae END; 

3: 2755 87 

; 2756 874 

3; 2757 875 } Loop through the DEFINE List. 

: 2758 2876 

3; 2759 2877 Hest -f ine = TRUE; 

3: 2760 878 WHILE TRUE DO 

3: 2761 879 BEG! 

3 10g 880 

3; 276 881 ! For the first time around the loop, recover the noun node 

3: 2764 obese i by following the pointer in the verb node. 

3 2765 88 i 

; 2766 2884 If .first_time 

3; 2767 rH THEN 

: sfes Hy 4 BEGIN 

3 ss seas ? noun_node = .verb_node (dbg$l_verb_object_ptrJ; 

; arr 344 ? Set first_time to false for future times around the Loop. 
3; 277 891 4 pirst_tine = FALSE; 

: 2774 $44 4 END 

3: 2775 3 4 

3; 2776 94 4 ! For pennant times around the loop, get the next noun node 
3: 2777 895 4 ! from link in the current noun node. 

3; 2778 538 4 ! Exit 4 loop when that Link is zero. 

3; 2779 97 4 ‘ 

: 2780 +43 3 ELSE 

: 7) 99 4 BEGIN 

3: 27 ¢ 900 4 noun_node = .noun_node [dbg$l_noun_Link]; 

3; 278 901 4 IF .moun_node EQL~0 

3; 27 902 4 

3; 2785 9 4 EXITLOOP; 

: $f 308 ; 5, 

: 27 906 ! Now determine whether the define was local or global. 


: 2789 907 
; 789 208 
: t ; 340 
3 138 911 
: 279% gi 
: $t8e 314 
; 139 915 
: 2798 916 
3 2799 91 
; 2800 gis 
; 2801 91 
: 280 920 
; 280 921 
3 2804 9 ‘ 
; 2805 9 

; 2806 924 
; 2807 925 
: 2808 926 
: 2809 927 


6E 01 
6€ 01 
09 
6€ 01 
09 
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122888718 4 90:18:08 DEBUG. SRC IJDBGDEF INE .832;1 
' 
IF_.nmoun_node ([dbg$l_adjective_ptr] EQL define_global 
global_flag = TRUE 
ELSE 
global_flag = FALSE; 
We just call the routine DBGSDEF_SYM_ADD to perform the action. 
IF NOT dbg$def_sym_add (.noun_node ([dbg$l_noun_value] 
-verb-node {dbg$b-verb-composited, 
-noun_node [dbg$l_noun valued), 
-global_flag, 
replaced vlog 
-message_vects 
THEN 
RETURN sts$k_severe; 
END; ! While loop 
RETURN sts$k_success; 
END; ! dbg$nexecute_define 
01FC 00000 ENTRY FOCRaE MECUTE SEF INE. Save R2,R3,R4,R5,R6,- 
58 000000006 00 2g 00002 MOVAB LIBSSIGNAL, R8 
of 08 C2 00009 SUBL2 #8 
5 04 AC 00 0000C MOVL § VERB_NODE, R5 
07 01 AS 91 00010 CMPB 1(R5), #7 
03 13 00014 BEQL 1$ 
0099 H 00016 BRW 6$ 
52 04 AS 7D 44 thd 1$: mova 4(R5), ADVERB_NODE 
6— D4 0001D CLRL ATTRIBUTES 
00 04 A2 FO QOO1F INSV 4(ADVERB_NODE), #0, #1, ATTRIBUTES 
52 08 <A2 00 00025 MOVL 8(ADVERB_NODE), ADVERB_NODE 
54 04 =A ? 0029 MOVL 4(ADVERB_NODE), IF STATE DESC_ADDRESS 
5 8 A2 00 00020 MOVL 8(ADVERB_NODE), ADVERB_NODE 
9 4 A2 FO 00031 INSV 4(ADVERB_NODE), #2, #1, ATTRIBUTES 
8 A2 DO 00037 MOVL § 8(ADVERB“NODE), ADVERB_NODE 
5 4 A2 d2 00 MCOML  4(ADVERB_NODE), OUTPUT_LOG 
2 08 A2 00 Q005F MOVL ort te Marg 1 ADVERB_NODE 
6 04 A2 00 00 me MOVL (ADVERB_NODE), SET_STATE_DESC_ADDRESS 
8 1 Ohe BNEQ 2s 
6E 2e 49 BBC a ATTRIBUTES, 2$ 
00028158 BF DD 9040 PUSHL #164184 
$8 BR be CALLS #1, LIBSSIGNAL 
08 Ag DO 00056 2$: MOVL 8 (ADVERB_NODE), ADVERB_NODE 
4 4 Ae F Bhan INSV 4 (ADVERB NODE #i, #1, ATTRIBUTES 
D 6— € 06 BLBC ATTRIBUTES, 53$ 
6E 1 €0 3 6 BBS #1, ATTRIBUTES, 3$ 
00028158 8F DD PUSHL #164184 
68 1 FB 3 CALLS #1, LIBSSIGNA 
$ DD 070 3$ PUSHL  SEf_STATE_DESC_ADDRESS 
04 A3 DD 0007 PUSHL 4(NOUN_NOBE) 


Pete Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Ge Ge Ge Se Se Se Ge Se Se Ge Se Se Se Be ee 


Page 85 


(16) 


o 
SSRI Sea=soen 


WWRNNN =e o> 


MNoNoNoNoNonononononon 


Cor ww 


18-56 -Sep-1984 t 98: 3 :3 AX-11 BL Aigee2e v4.0 “235. 4 Page 86 


3: Routine Size: 


244 bytes, 


14-Sep-1984 :4 DEBUG. SRCJDBGDEF INE.B (16) 
08 AE 9F 0007 PUSHAB ATTRIBUT 3 285 
64 0D 0007 PUSHL (IF STAT spese ADDRESS) + 285 
ooo000006 86 $F doze pusnte Gockel Tey TABLE 10 : $80. 
000000006 F ; CALLS #6, SMGSADB_KEY_DEF ; 
C BLBS AD 6 stares os : 285 
00028110 &8F ODD F PUSHL ate + 285 
68 1 FB 3 CALLS 4 LIBSSIGNA : | 
F 7 € OB 4$ LBC  OUTPUT_LOG, 5 : 2859 
63 DD PUSHL  (NOUN_RODES ; 3 
4 Dd 00090 PUSHL (IF USTATE _DESC_ADDRESS) + 2862 | 
2 DD 0009F PUSHL # : 2861 | 
00028083 8F DD OO0A1 PUSHL #164019 : 
68 4 FB 00A7 CALLS #4, LIBSSIGNA : 
54 04 A4 DO OOOAA S$: MOVE) 4CEF F aSTATE DESC_ADDRESS), > 2865) 
IF STATE_DESC_ABDRESS ; | 
¢0 12 OOAE BNEQ $~ + 2866. 
—E 11 0008 BRB 12$ + 2871 
54 01 D0 0082 68: MOVL #1, FIRST_TIME + 2877 
08 4 €9 00085 7$: BLBC  FIRST_TIME, + 2884 
08 AS DO 00088 MOVL  8(R5)>_NOUN_NODE + 2887 
cs rr ae 3 
53 08 Rg 09 itt 8$: MOVL § 8(NOUN_NODE), NOUN_NODE + 2900’ 
2A 13 0004 BEQL 12$ : 2901 
01 04 A3 Di 00066 9S: CMPL § 4(NOUN_NODE), #1 ; 2908 
05 12 OOOCA BNEQ 10$ : | 
52 01 pO 000CC MOVL #1, GLOBAL_FLAG : 2910) 
08 11 900¢t BRB 11§ ; 
D4 00001 10$:  CLRL  GLOBAL_FL + 2912 
08 AC DD 90005 11$:  PUSHL MESSAGE VECT + 2921 
08 AE OF 0006 PUSHAB REPLACED FLAG + 2916 
52 DD 0000 PUSHL AL_FC + 2919 
OC A3 DD 000DB USHL  12(NOUN_NODE) : 2918 
7E 01 AS 9A OOODE MOVZBL 1(R5), as : 2917 
63 0D O00E? PUSHL (NOUN. NODE) : 2916 
EESF = CF 06 FB O0E4 CALLS #6, D DBGSDEF _SYM_ADD 3 
9 50 £8 000E9 BLBS RO. 7$ ; 
50 04 BO QO0EC MOVL #4, RO + 2923 
$ VL ‘ é 
50 01 DO O00FO 128 MO RO 2926 
04 O00F RET + 2927 


Routine Base: 


DBGSCODE + 10A8 
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: 1} 4 3 } GLOBAL ROUTINE dbg$nexecute_delete (verb_node, message_vect) = 

: 1§ 3 9 ; Functional Description 

; 1§ 9 § 13 This routine performs the action associated with the DELETE command. 
3 1$ 3 : : DELETE is the same as UNDEFINE so we just call that routine. 

; 18 3 5 i ! Routine Inputs 

: 0 9 1 i verb_node - The head of a command execution tree. This is built 
3 1 938 1! by the routine DBGSNPARSE_UNDEFINE, and its structure 
3 : $ 939 1! is described in the header of that routine. 

3 B52 ect : } message_vect - An error message vector. 

; 8 5 3% Routine Outputs 

; 8 5 944 13 Entries may be remove from the DEFINE foe table. (See DBGLIB.REQ 
3 89 ot : for documentation of the structure of the DEFINE symbol table. 

; 2830 3c9 13 The routine value is one of: 

3 oa) 948 1! sts$k_success = Success code. 

; 28 ¢ 949 1! sts$k_severe - Error. An error message vector is contructed. 

: Spaz 98) 2 BEGIN 

: 2835 326 : RETURN dbg$nexecute_undefine(.verb_node, .message_vect); 

3; 2836 953 (1 END; 


; Routine Size: 12 bytes, Routine Base: DBGSCODE + 119¢ 


0000 00000 .ENTRY DBGSNEXECUTE_DELETE, Save nothing 
7E 04 ac 7D 00002 MOV N -TSpP 
0000v CF 02 FB 00006 CALLS #2, BBGSNEXECUTE_UNDEF INE 
04 00008 RET 


rage 


: 2928 
3: 2952 


3: 2953 
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FLOBAL ROUTINE dbg$nexecute_undefine (verb_node, message_vect) = 
! Functional Description 

This routine performs the action associated with the UNDEFINE command. 
Routine Inputs 


WOOO0O00O0 
DATA 


oO 


verb_node - The head of a command execution tree. This is built 
by the routine DBGSNPARSE_UNDEFINE, and its structure 
is described in the header of that routine. 
message_vect - An error message vector. 


Routine Outputs 


Entries may be remove from the DEFINE symbol table. (See DBGLIB.REQ 
for documentation of the structure of the DEFINE symbol table. 


The routine value is one of: 
sts$k_success = Success code. 
sts$k_severe - Error. An error message vector is contructed. 


wn DONO ARUN OOD NONE INS ODSe 


FREER RTR AAR LAR ANNA R REE RE RR td 


BEGIN 

97 

978 P 

44 verb_node : REF dbg$verb_node; 

981 CAL 

98 first time, ! TRUE first time in loop 

298 globaT_flag, ! TRUE for global symbols 

984 noun_node : REF dbg$noun_node, ! Points to a noun node 
869 985 adverb_node : REF dbg$adverb_node, ! Points to an adverb node 
B70 986 removed_ flag; ! TRUE after the definition is removed 
Bre 4 43 : Check for UNDEF INE/KEY. 
874 990 IF .verb_node Cdbg$b_verb_composite] ECL undefine_key 
875 991 THEN 
o76 336 
87 99 BEGIN 
878 994 
879 995 LOCAL 
880 9 all_flag, 
ool 1444 context, : INITIAL(O), 

output_log, 
Hy 999 del status, 
884 000 temp_state_address REF dbg$state_name_node, 
885 001 state_desc_address REF dbg$state_name_node, 
Hy OOS desc_ptr : REF dbg$stg_desc, 
0 key_name_desc dbg$stg_desc, 
: state_name_desc dbg$stg_desc; 
90 '¢ 


: We will set up the noun and verb pointers and proceed to walk 

' down the adverb List with the Enow ones that the qualifier information 
' is in order. After geock ing the qualifiers, a call is made to the 

! routine SMGSDELETE_KEY_DEF to execute the command; if the /ALL 


oo 
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1e-88b-198e 3: fase DEBUG. SRC IDBGDEF INE .B32; 1 9°48) 
; 2895 1 ! qualifier exits then calls are made to SMGSLIST_KEY_DEFS to get all 
3 4] 1 ! the key definitions in the table. A call is alSo made for each 
; 289 1 ! state specified by the State qualifier. 
: rs 13 ; Then exit successfully, unless some error was found on the way. 
; 1 
3 1 i3 ! Initialize descriptors 
: £908 18 i : 
3 2904 0 9 key_name_desc(dsc$w_length] = 0; 
; 2905 0 key_name_descldsc$b_dtype] = dsc$k_dtype_t; 
3 308 5 ¢ key_name_descidsc$b_class] = gscSk.class_d; 
; 290 Bs? key_name_descldsc$a_pointerJ= 0; 
; 309 025 state_name_desc(dsc$w_length] = 0; 
: 2910 0 8 state_name_descldsc$b_dtype] = dsc$k_dtype_t; 
3; 2911 0 state_name_descldsc$b_class] = dsc$k_class_d; 
3 aig state_name_descldsc$a_pointerJ= 0; 
3 2914 030 noun_node = .verb_node Edbost .verb.object ptr 3 
; a | 1 adverb_node = .verb_node [dbg$l_verb_adverb_ptrJ; 
; 317 038 ! ALL qualifier 
3 2919 038 all_flag = .adverb_node Cdbg$l_adverb_value); 
; ; p39 adverb_node = .adverb_node dbg$l_adverb_Link]; 
3; 29 ; 038 ! LOG qualifier 
3; 29 039 
3 2924 040 output log = NOT .adverb_node (dbg$l_adverb_value); 
: 5 Bet adverb_node = .adverb_node (dbg$l_adverb_Link); 
: ; a¢$ ! STATE qualifier 
; 33 045 state_desc_address = .adverb_node [dbg$l_adverb_value); 
3 2931 be? ! If the /ALL qualifier exists 
: § 048 : 
3; 29 049 
3; 29 050 WHILE .all_flag DO 
3 2935 051 4 BEGIN 
3 339 O26 ? temp_state_address = .state_desc_address; 
: 4 bze 4 del_status = smg$list_key_defs(dbg$gl_key_table_id, 
3 55 4 context, 
3; 2940 056 4 key_name_desc, 
3 2941 057 4 state_name_desc); 
$ 368 058 4 If NOT .del_status 
7 294 059 4 THEN 
3 2944 060 4 IF .del_status EQL smg$_nomorekeys 
3 2945 061 4 HEN 
3 bo¢ & EXITLOOP 
3 065 4 ELS 
: Bee ? SIGNAL (dbg$_delkeyerr); 
3 2950 066 4 WHILE .temp_state_address NEQ 0 DO 
3 2951 5 BEGIN 
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at “1 :15:3 AX-11 Bliss-32 V4.0-7 
1§-$e0-198 99: 716: ‘28 DEBUG.SR RCIDBGDEF INE . B 
desc_ptr = .temp_state_address ([dbg$l_state_name_ptrJ; 
! Check to see if the state names match, if so, govets the key 
; Remember, str$compare_eql returns for a match 


ro str$compare_eql(state_name_desc, .desc_ptr) 


BEGIN 
del_status = smg$delete_key_def (ébgsol. key_table_id, 
ame ° 
state. _name_desc); 
IF NOT .del_status 
THEN 
IF .del_status EQL smg$_keynotdef 
THEN 


BEGIN 
IF “output t 


EXITLOOP; 
END 
LSE 
SIGNAL (dbg$_delkeyerr); 
og ete AND (NOT .del_status EQL smg$_keynotdef) 
BEGIN 
SIGNAL (dbg$_delkey, 2, state_name_desc, key_name_desc); 
EXITLOOP; 
END; 
END 
If the state names are not the same, look for the next one 
_ temp_state_address =.temp_state_address ([dbg$l_state_name_link]; 
END; 
If not /ALL 


WHILE NOT .all_flag DO 
BEGIN 


ch$move(8, .noun_node re shove value], key_name 5 ag 
ch$move(8, .staté_desc_address (dBg$l_ state _name_ptrj, state_name_desc); 


del_status = smg$delete_key_def (dbg$gl_key_table_id, 
ey_name_desc, 
state_name_desc); 
IF NOT .del_status 
THEN 
4 Wit status EQL smg$_keynotdef 


IF -output log THEN 
SIGNALTdbg$_undkey, 2, state_name_desc, key_name_desc); 


3351 


THEN 
ALTdbgS.. undkey, 2, state_name_desc, key_name_desc); 
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END 

© SIGNAL (dbg$_detkeyerr): 

IF (.output_log) AND (NOT .del_status EQL smg$_keynotdef) 
SIGNAL (dbg$_delkey, 2, state_name_desc, key_name_desc); 


ELS 


state desc_address = .state desc_address [dbg$l_state_name_Link]; 
if -State_desc_address EQ. 0 


N 
EXITLOOP; 
END; 


RETURN sts$k_success; 
END; 


Check for UNDEF INE/ALL 
if ,verb_node Cdbg$b_verb_composite] EQL undefine_all 
RETURN dbg$def_sym_remove_all (FALSE, .message_vect); 
Check for UNDEF INE/ALL/GLOBAL 
If .verb_node Cdbg$b_verb_composite] EQL undefine_all_global 
RETURN dbg$def_sym_remove_all (TRUE, .message_vect); 
: Loop through the DEFINE List. 


first_time = TRUE; 
WHILE TRUE DO 
BEGIN 


For the first time around the loop, recover the noun node 
by following the pointer in the verb node. 


1 
' 
i 
IF .first_time 
THEN 
BEGIN . 
noun_node = .verb_node (dbg$l_verb_object_ptrJ; 


H Set first_time to false for future times around the Loop. 
first_time = FALSE; 
END 


! For subsequent times around the loop, get the next noun node 
! from the Link in the current noun node. 

Exit the loop when that Link is zero. 
ELSE 

BEGIN 

noun_node = .noun_node [dbg$l_noun_link); 

IF .Moun_node EQL~0 


DBGDEF INE .B32;1 


vos~600. 


AX-11 Bliss-32 V4.0-74 Page 92. 
DEBUG. SRCSDBGOER INE .039s1 | 9°18) 


H p66 1 ¢ 4 THEN 

Fy 1 EXITLOOP; 

: 1 ¢ END; 

3 076 : $ } Now determine whether the define was local or global. 

3 Ors : 5 if .noun_node Cdbg$l_adjective_ptr] EQL define_global 

> 3074 190 lobal_flag = TRUE | 
: 3075 191 = | 
; 638 136 global_flag = FALSE; | 
3 078 194 ! We just call the routine DBGSDEF_SYM_REMOVE to perform the action. | 
bat 138 if NOT dbg$def_sym_remove Ceuta it a he te 
3 oes 138 renoved. flag, 

3 -messa 

: 3084 00 THEN — 

; 085 4 RETURN sts$k_severe; 
3 a t4 08 Signal an informational if the symbol was not defined. 

: 3089 05 iF NOT .removed_flag 

; 3090 06 4 

: 4 4 SIGNAL (dbg$_notdefine, 1, .noun_node Cdbg$l_noun_value)); 

: 309 $09 END; ! While Loop 

Be BRE sem sat 

3 sts$k_success; 

; 3096 $12 END; _ 


OFFC 00000 -ENTRY DBGSNEXECUTE_UNDEFINE, Save R2.R3.R4,R5.R6.-; 2954 
7,R8,R9,R10-R11 ; 
5 20 -: 90002 SUBL2 #3 : 
5 04 AC 00 0000 MOVL VERB NODE . RB : 2990 
0 01 Aas 91 00009 CMPB sé CRY, : 
: 13 0000D BEQL : 
0176 31 O000F BRW 16$ : 
GE D4 0012 1$: CLRL CONTEXT : 299 
14 AE 020E000 F 00 0001 MOVL  #34471936, KEY_NAME_DESC : 302 
1 AE 04 O001C CLRL “ty we +5 3; 30 
08 AE 02060000 8F 00 O001F MOVL § #34%71938, STATE_NAME_DESC : 3025 
o¢ AE D4 00027 CLRL STATE NAME DESC+% : 3028 
7 AS DO 0002A MOVL (RED: NOUN_NODE : 3030 
0 4 AB D 9 MOVL  4(R8). ADVERB_NODE : 3031 
22 4 Ad D MOVL 4 (ADVERB_NODEY, ALL_FLA : 9 5 
8 Ad 00 000 MOVL  § 8(ADVERB“NODE). ADVERB_NODE ; 
SA 4 Ad D A MCOML 4 (ADVERB“NODE), OUTPUT~LOG : 3040 
30 8 AO D MOVL  8(ADVERB“NODE). ADVERB~NO > 3041 
6 4 Ad D 4 MOVL  4(ADVERB NODE), STATE_BESC_ADDRESS : 3045 
0 5 ‘ 4 3 BLBS ALL FLAG; : 3052 
0088 31 0004 BRW 1 : 


a a REST eee al epee. 


GDEF INE 16-Sep-1984 00:15:3 AX-11 Bliss-32 v4. Page 93. 
vitae 1ergep- 198s 99:12:2 DEBUG. SRCTDBGDES Te 03951 (18) | 
53 56 00 0004C 4$: MOVL STATE DES DESC ADDRESS, TEMP_STATE_ADDRESS : 
_ AE OF 0004 PUSHAB DESC + 3054) 
AE 9F PUSHAB KEY NAME. E_D bese : 
000000806 00 oF pySHaB CONTENT KEY_TABLE_ID : | 
000000006 4 F CALLS eo SMGSLIST_KEY_DEFS F 
9 D 6 VL RO, DE STATOS : 
16 EB 0006 BLBS DEL_STATUS, 5$ : 3058 
000000006 8F ? bY 0 CPL BEL-STATUS, #SMGS_NOMOREKEYS : 3060. 
00028118 8F DD 0007 PUSHL > 3064 
000000006 00 | F 0 7A CALLS #1, LIBSSIGNAL : 
> p 9081 5$: isi TEMP_STATE_ADDRESS : 3066 
54 $3 D $oB8 MOVL (TEMP_STATE_ADDRESS), DESC_PTR + 3068 
4 pd 00088 PUSHL DESC_PTR : 3074 
OC AE 9F OO08A PUSHAB STATE NAM DESC : 
000000006 00 Q FB 008D CALLS TRSCORPARE _EQL : 
66 3 0094 BLBS RO $ : 
08 AE SF 00097 PUSHAB STATE_NAME_DESC : 3077 | 
18 AE 9F OOO9A PUSHAB KEY : 
000000006 00 9F 0009D PUSHAB ie KEY _T 1D : 
000000006 00 Q FB O00A3 CALLS SHGSDECETE wit _DEF ; | 
59 0 pO OOOAA MOVL DEL : 
59 €8 OOOAD BLBS pet _STA Ti gh 8 : 3080 
000000006 &F 59 D} 60080 CPL DEL~ “STATUS. #SMG$_KEYNOTDEF : 3082 
BA SA 5 $0089 BLBC OUTPUT LOG : 3085 
146 AE SF 000BC PUSHAB 6228 : 3086 | 
0c AE 9F OOOBF PUSHAB sere ane _DESC : 
02 DD 000C2 PUSHL @# : 
000280¢B 8F DD 000C4 PUSHL #164043 : 
@7 11 OOOCA BRB ; 
00028118  &8F DD OO0CC 6S: PUSHL #164120 : 3090) 
000000006 00 1 FB 90008 CALLS #1, LIBSSIGNAL : 
AS A €9 00009 7$: BLBC OUTPUT LOG, 5$ : 3092 
000000006 8 59 D1 0000 CMPL i L_STATUS, #SMGS$_KEYNOTDEF : 
9c 13 OO0E BEQL y ; 
14 AE 9F OOOE PUSHAB E DESC : 3095 
0c AE OF O0E8 PUSHAB ait ANARE _DESC F 
0 DD 000EB PUSHL F 
00028088 8F DD OED PUSHL #164027 ; 
000000006 00 04 FB OOOFS 8$: CALLS #4, LIBSSIGNAL : 
FF49 31 OOFA BRW + 3094 | 
53 04 A3 b6 FD 9$: MOVL (TEMP_STATE_ADDRESS), TEMP_STATE_ADDRESS ; 3103 
FFZD 1 00101 BRW : 3066 
B 3 bg 0104 10$:  MCOML ALF FLAG, R11 ; 3110 
5 107 11$:  BLBC : 3129 
146 AE 00 8B 6 8 010A MOVC a. | DE), KEY_NAME DESC : 311 
08 AE 00 86 O10 mOVC (STATE DESC. ADDRESS), STATE_NAME_DESC : 311 
08 AE OF 116 PUSHAB stare NAME DESC : 3115 | 
18 AE 9F 0011 PUSHAB KEY DESC : 
000000006 9F 0011 PUSHAB DecSGL feud 1D ; | 
000000006 FB 001 CALLS > SACSDECETE tkeY _DEF ; 
dO 001 MOVL R ; DEL F 
0 3 E8 0012C BLBS  DEL_STA tre ng g ; 318 
000000006 8F 9 D1 OOl2F CMPL DELTSTATUS, #SMGS$_KEYNOTDS! : 5120 | 
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2$ 

UTPUT_LOG, 14$ 
KEY_NAME DESC 
STATE ANARE _DESC 


xo— ran 


#164043 
H LIBSSIGNAL 


164120 
LIBSSIGNAL 
Sutput LOG, 14$ 
ty STATUS. #SMG$_KEYNOTDEF 
STATE_NARE DESC 
#164027 


LIBSSIGNAL 
aCSTATE -DESC_ADDRESS), STATE_DESC_ADDRESS 


8), #1 


8), #2 

MESSAGE _VECT 

#2, DBGSDEF _SYM_REMOVE_ALL 
FIRST TIME 


T mA 21$ 
NOUN_NODE 
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MESSA 


(NOUN_NODE ) 
+0 ” BBgSDEF SYM_REMOVE 


REMOVED FLAG, 20$ 
(NOUN_NODE ) 
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132800- 138 Tae DEBUG. SROTDBGDEF IN B39: 1 
GLOBAL ROUTINE dbg$nread_name (input_desc, result_addr, message_vect) = 
i Functional Description 


Reads the name which is the Left-hand-side of the DEFINE command. 
For now, the names allowed are any string peg tenon with an 
alphabetic and followed . any number of alphabetics or numerics 
and also characters from the set { _, P 

The input string descriptor is updated beyond the string that 
a nap Space 1s allocated for a counted string to hold the 
result. 


Inputs 


input_desc - A pointer to a string descriptor with the input. 
resul€_addr - The address in which to place the result. 
message_vect - A pointer to an error message vector. 


Outputs 


Space is allocated for a counted string to hold the result. 
A pointer to this counted string is returned in result_addr. 
One of the following values is returned: 
sts$k_success - Success code. 
sts$k_severe - Failure. The input did not contain 
a legal name. An error message vector 
is constructed and returned in message_vect. 


BEGIN 
MAP 
input_desc: REF BLOCK C,BYTEI; 
LOCAL 
char, ! Holds a character in the input stream 
count, ! Count of characters in the name 
first_char, ' Flag saying we are 
; reading the first character 
poin Pointer into the input stream 


ter, 
result: REF VECTORC,BYTE); 
Check for exhausted input. 
if .input_desc Cdsc$w_length] EQL 0 
THEN 
BEGIN 


-message_vect = dbg$nmake_arg_vect (dbg$_needmore) ; 
sue sts$k_severe; 


Holds the result 


} Read past leading blanks. 
WHILE TRUE DO 
BEGIN 
char = ch$rchar (, input desc Cdsc$a_pointer]); 
an 


IF .char NEQ dbg$k_ 
AND .char NEQ dbg$k_tab 


Se — —_ ——— 


13 | 
ite a 1§-$ep-1964 19:1ai28 — EOkbuc. Sreloeeber tie 104351 Page 13) 


— 
Mnviviw 
ODONOW 


ieout ogy asc$a. pointers = Teles (. input desc CdagSe_gotnter2. 1) 
input. desc [dsc$w_ Rengthi = .input_desc CdscSw_lengthi -"1; 

Check for exhausted input again. 

iF, input desc Cdsc$w_length] EQL 0 
BEGIN 


MIPIMIPOPIRIPOROPOPOPoPofonofponsnorornofrororororonr 
oNANNNS 
oO we 


i 3 
; 351 
3; 31 
3; 31 
; 3160 
ne 
; 188 
Rg 
; 1 1 message _vect = dbg$nmake_arg_vect (dbg$_needmore) ; 
3 189 Bs RETU RN stsSk severe; * ° 
; 3168 8 END; 
F 199 84 
; 3170 85 ! Initialize the count to zero and the pointer to point to the 
3 aif} 56 next character in the input stream. 
: 178 88 ount = 0; 
; in 3 pointer = .input_desc Cdsc$a_pointer); 
: 176 33 : Read until we hit a character that cannot be part of the string. 
: 3178 9 first ~thar = TRUE; 
; 3179 94 WHILE TRUE DO 
; 3180 95 BEGIN 5 
: 13) 3297 char = ch$rchar (.pointer); 
; 188 298 } | ore first character we accept only alphabetics. 
3 slee 344 ; Allow % also 
; 3185 00 ! 
; 3186 3301 4 If .first_char ve (.char LSS *A' OR .char GTR ‘Z') 
3; 3187 $308 4 (char LSS ' a' OR .char GTR ‘z') 
; 3188 30 AND -char NEQ ‘%' 
; 3189 sane THEN 
: 3190 $2 EXITLOOP; 
: 313) 06 
3 136 4 : Set first_char to FALSE for future times around Loop. 
; 194 309 first_char = FALSE; 
: 196 311 ! Accept alphabetics, numerics, $, _, % 
: 3198 318 if (.char LSS "A' OR .char GTR 'Z') AND .char NEQ '_* 
3; 3199 14 AND .char NEQ '$' AND .char NEQ ‘2? 
; 3200 315 4 AND (.char LSS ‘0° OR .char GTR ‘9') 
: 3201 318 4 AND (.char LSS ‘a’ OR .char GTR ‘z') 
3 $e 31 THEN 
3 0 $15 EXITLOOP; 
3: 3204 31 
3; 3205 320 count = .count + 1; 
3 soe 321 1 eta = ohSplus (.pointer, 1); 
Be aR 
; 209 2 Check for running off the end of the input stream. 
: 3211 : 6 IF .count GIR .input_desc Cdsc$w_length) 


F 13 
GDEF INE 16-Sep-1984 00:15:3 AX-11 Bliss-32 V4.0- Pa 98 
Miveete 1o=808- 1382 10 aes DEBUG. SRCJDBGDEF INE. O33. 31 19) 
3 1g 7 
; iz § > e_vect = dbg$nmak t (dbg$ d ); 
5 = nmake_arg_vec _needmore 
: 3215 0 RETURN sSk sever’: 8. . 
ie ) on 
; 18 $ Check for no characters read. 
; 3220 5 if .count EQL 0 
3 1 $ THEN 
H ¢ BEGIN 
3 8 -message avegt = dbg$nmake_arg_vect (dogs. illdefnam, 1, 
: 4 9 dogs nnext_word(. input_desc) 
: 5 40 Age sts$k_severe; 
3 8 rh END; 
; : ‘8 Allocate space for the result. 
: 386 $02 result = dbg$get_memory (1+(1+.count)/4); 
: 332 rt 4 Fill in the result, translating lower case to upper case. 
: 3234 49 result(0) = .count; 
3; 3235 50 ointer = resultl1); 
: 3236 51 NCR i FROM 1 16 .count DO 
$ 37 26 BEGIN 
: 3238 5 char = ch$rchar a (input. fooet eects _pointer)); 
: 3239 354 IF .char GEQ ‘a® AND .char LEQ ' 
3 40 355 TH EN 
: 3241 228 char = .char = (‘a' = ‘A'); 
3 seg $26 ch$wchar_a (.char, pointer); 
: 3244 $28 .result_addr = .result; 
3 3246 361 ‘y epeese the input descriptor to point past the string that was read. 
3 ste ¢ : The pointer has already been advanced. 
; $eP 3 input_desc Cdsc$w_length] = .input_desc Cdsc$w_length] - .count; 
; $2) 44 RETURN sts$k_success; 
; $38 368 1 END; ! dbg$nread_name 
OOFC 90009 .ENTRY DBGSNREAD NAME. Save R2,R3,R4,R5,R6,R7 : 3213. 
57 000000006 00 9 B25 MOVAB DBGSNMAKE-ARG VECT, R7 3 
54 04 aC 00 000 MOVL INPUT_DESC, RRs : 3256. 
64 8 9000 TSTW = (R4) : | 
1A OOF BEQL 3 
2¢ of AG 9E Bait MOV 4(R4), R6 : 3267 
5 0 8 9A 13 1$: MOVZBL a0(R6S CHAR ; | 
20 D4 001 CMPL HAR, #3 > 3268. 
2 001C BEQL : 
09 D1 OOO1E CMPL CHAR, #9 5 3269 | 


nee ee ey 


ati HE RegHats (8: 


i Ax-11 Ot iene V4.0-74 
4 DEBUG. SRC. JDBGDEF INE .B32;1 
06 1 BNEQ 3$ 
66 D 2$: INCL  (R6) 
64 3 DECW = (RA) 
—C 11 BRB 1$ 
4 9 3$: TSTWw = (R4) 
: 028 4$: BNEQ 5$ 
00 02D BRW 14$ 
‘ D4 0 5$: CLRL COUNT 
35 6 D0 MOVL  (R6), POINTER 
9 1 p0 00 MOVL #1, FIRST_CHAR 
5 5 9A 00038 6$ MOVZBL (POINTER); CHAR 
39 : £9 0038 BLBC  FIRST_CHAR, 9$ 
00000041 &F D1 : CMPL CHAR, #65 
09 19 0004 BLSS $ 
0000005A = 8F 3 D1 0047 CMPL CHAR, #90 
17 15 0004 BLEG 469 
00000061 8F 53 Di 00050 7s: CMPL HAR, #97 
09 19 0005 BLSS 
0000007A BF 3 01 99059 CMPL CHAR, #122 
03 15 00060 BLEG 
25 3 pl 90062 8$: CMPL CHAR, #37 
49° 12 0006 BNEO 
50 04 00067 9S: CLRL =‘ FIRST_CHAR 
00000041 = 8F 53 D1 00069 CMPL CHAR, #65 
09 19 00070 BLSS 
0000005A -8F 3 1 90078 CMPL CHAR, #90 
ef 15 0007 BLEG 
0000005F 8F 3 pl 00078 10$:  CMPL CHAR, #95 
26 13 00082 BEQL 
24 D1 00084 CMPL CHAR, #36 
21 13 00087 BEQL 
25 3 pi 00089 CMPL CHAR, #37 
fs 13 0008C BEQL 12$ 
30 53 01 O008E CMPL CHAR, #48 
05 19 90091 BLSS 11 
39 53 01 00093 CMPL CHAR, #57 
12 15 90096 BLEQ 
00000061 = 8F 53 01 00098 11$:  CMPL CHAR, #97 
OF 19 909° BLSS 
0000007A = &F 3 01 000A1 CMPL CHAR, #122 
06 14 000A8 BGTR 3$ 
: D6 OOOAA 12S: INCL COUNT 
55 «06 OOOAC INCL POINTER 
: 11 OA BRB 6 
52 64 10 ED BO 13$: CMPZV #0, #16, (R4), COUNT 
B 085 BGEO 
00028000 8F DD 000B7 14$:  PUSHL #164048 
67 1 FB 0008 CALLS #1, DBGSNMAKE_ARG_VECT 
1A 11 000C BRB § 
52 03 9o¢ 15$: TSTL COUNT 
16 1 C4 BNEQ ~=«'17$ 
54 DD 0¢6 PUSHL R4 
000000006 00 gi FB 000C CALLS #1, DBGSNNEXT_WORD 
0 DD OO00CF PUSHL RO 
1 0D 00001 PUSHL 
00028E50 8F DD 00003 PUSHL #167504 
67 3 FB 00009 CALLS #3, DBGSNMAKE_ARG_VECT 
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1 15:3 AX-11 Bliss-32 V4.0-74 Page 100 
1 :16:4 YoeBUG. SRC saaper ie 0351 9° 19) 
0c eC 0 00 DC 16$:  MOVL RO, @MESSAGE_VECT ; 
4 i : ROVL #4, RO : 3340 
50 01 A2 : £4 17% ROVA 1(R2), RO + 3345 
04 § £8 DIvL2 #4, RO : 
01 AO OF 8 PUSHAB 1(RO) : | 
000000006 09 01 fe E CALLS #1, DBGSGET_MEMORY : 
: 9 F VB COUNT, (RESOLT) + 3349) 
5 01 AO 9E 000F MOVAB (RO). POINTER : 3350 
es 51 04 OOOFC CLRL i : 3351) 
1€ 11 O00F BRB 0$ ; 
53 00 9a 00100 18% MOVZBL @0(R6), CHAR > 3353) 
D6 001 INCL  (R6) : | 
00000061 = &F D1 001 CMPL CHAR, #97 : 3354) 
0 19 9190 BLSS 19$ ; 
0000007A_ —s &F D1 0010F CMPL CHAR, #122 : | 
14 00116 BGTR 9$ : 
53 9 ¢2 oor! SUBL2 #32, CHAR : 3356, 
85 9 00118 19$: MOVE CHAR, (POINTER)+ : 3357 
DE 1 32 f OIE 20$:  AOBLEQ Counf, I, 18 + 3351 
08 aC 50 pO 001 MOVL. RESULT, @RESULT_ADDR : 3359 
64 52 A2 01 6 SUBW2 COUNT, (R4) > 3364 | 
50 01 DO 00129 MOVL #1, RO : 3366 
04 0012¢ RET : 3368) 
; Routine Size: 301 bytes, Routine Base: DBGSCODE + 13A0 


13 
1-Se 1984 00:15:3 AX-11 Bliss-32 V4.0-74 P 101 
1073-1 38e 1:18:48 DEBUG. SRCJDBGDEF INE -B3 31 *9° (20) 


s3 
: 


291 


ELSE 
vms_desc = .desc2; 


40 Copy the descriptor. 

dbg$nget_symid (.descl, symid_list, dummy); 
cbgencopy desc (.descl, descl_copy, dummy); 
dbg$sta_lo 


' Save away the copy. 
! The name must be allocated out of permanent memory. 


ck_symid (.symid_list); 


name = dbgsget memory (2); 

ch$move (8, UPLIT BYTE (ZASCIC ‘XCURLOC'), .name); 
dbg$def_sym_add(.name, define_address, .desci_copy, TRUE, dummy, dummy); 
See if a secondary descriptor was supplied. 

if .vms_desc EQL 0 

THEN 


dbg$gl_curloc_vmsdesc = 0 


$ 5 $8 ! GLOBAL ROUTINE dbg$save_loc (descl, desc2): NOVALUE = 

; $ 4 : : ROUTINE FUNCTION 

; $3 74 } Save away the given descriptor(s) as the current value of dot. 
3 o ie : } INPUTS 

3 8g 8 DESC1 = points to a descriptor to be saved as . 

3; 3264 78 1! DESC2 - points to a VMS descriptor which aey also be 
; 3265 79 1! saved. This is stored in an own variable in 
: $6 S 2s this module. 

; 326 1. 2 

: o8 ¢ ; IMPLICIT OUTPUT 

3 0 Be 1! A copy of the given descriptor is constructed out of permanent memory. 
: 3271 > af The DEFINE table is modified to include a new entry for ZCURLOC. 
: Lf 58 ,: The secondary descriptor, if present, is copied into an area in this 
: 327 ? 1! module. 

: 74 88 1! 

: 3275 389 BEGIN 

3 7 90 

: 327 91 BUILTIN 

3 me 4 actualcount; ! Count of actual parameters 

3 $b 94 LOCAL 

; 3281 95 descl_copy. ! Points to a copy of DESC!. 

; $ae 96 dummy, ! Third parameter for message vectors 
3; 328 397 ' (not used here) 

3 see $05 name, ' Point to name ZCURLOC. 

; 3285 99 symid_list, ! Points to a symid List. | 

3 $08 r+ vms_desc; ! Points to the vms descriptor to be saved 
3 $B 106 IF actualcount() LSS 2 

3 $89 40 THEN 

; 3290 404 vms_desc = 0 

é ret 

3 109 

3 8 

3 09 

: 10 

3 i 

r 18 

3 414 

: 41 

: 41 

3 41 

3 1 

5 4) 

3 4 

3 4 

3 4 

s 4 

: 4 

s 4 


MEW —OOOnOu 


Ronorornofory 


Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge ee 
WNANNANANInne 
MRNN 3 eo ee 
WN“ OODONOUS urn 
St ot = 
VIFWN—OODOND 


rae 


1-Sep-1 
16-Sep-1 


ELSE 


BEGIN 


! Copy it into the area in this module. 
: and set up the pointer to this area. 


ch$move (12, .vms_desc, curloc_vmsdesc); 
Gbgsgl _curloc_vasdesc = curloc_vmsdesc; 


RETURN; 
END; 


43 4F 4C 52 55 43 25 O07 00118 P.ACD: 


O3FC 00 
59 00000000" EF 9E os 
58 00000000' fr 25 
5 ec ¢ 9 
0 6c 91 1 
04 1€ 16 
57 D4 18 
04 11 1A 
57 08 Ac 00 1C 1$: 
08 AE OF ° 2s: 
04 AE OF 
04 AC ODD 
000000006 00 05 FB 9 
08 AE OF 0 
08 AE 9F 3 
04 aC OD 
000000006 00 05 FB 9 


EAF2 CF 


6— 0D 40 
00000000G 00 4 FS re 
2 00 4 
00000000G 00 Qt fF 4 
6 0 5 
66 00000000° EF 08 5 
8 AE F 50 
C AE 9F 
10 oy BB 988 
A Site 
og 
0 


COOOGOCOCOOOOCGOOOOOOSO SOOO OOOOOSOOOoOoOoOoOOoO 
SOOoOoOOoOOSOOOSOOSOOOOSOSOOOSOSOOOOOSOSOoOSoOoOSoOSoO 
SOOOSOOCOCOOOSGOOSOSOSSOSSOSOOSOSOOoOOCoOoOoOoCooOo 


ANNO 


NVA OS 


be (2:18:28 = EOkeue.SacHoecberine-o39;1 = #8 38 


DBGSPLIT,NOWRT, SHR, PIC,0 
<7>\2ZCURLOC\ 


DBGSCODE,NOWRT, SHR, PIC,O 
DBGSSAVE_LOC, Save R2,R3,R4,R5,R6,R7,R8,RP 
CURLOC_VASDESC, 
bagsGL CURLOC_VMSDESC, R8 
#i2, SP 
(APS, #2 
VMS_DESC 
DESC2, VMS_DESC 
SYMID_LIST 
$C1 
#3, DBGSNGET_SYMID 
DESC! _COPY 
4 . DBGSNCOPY_DESC 
a. DBGSSTA_LOCK_SYMID 
#1, DBGSGET_MEMORY 
RO. NAME 
#8, P.ACD, (NAME) 
DUMMY 
DUMMY 
#1 
DESCT_cOPY 
& 
NAME 
#6, DBGSDEF_SYM_ADD 
yas _DESC 


DBGSGL_CURLOC_VMSDESC 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Se Se Ge Se Ge Se Se Se Be Se Se Se Se Be Se 
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1BzSep-1984 00:15:52 YAK=HT BL igs=52 40-742 | 


; 3 } GLOBAL ROUTINE dbg$save_val (desc): NOVALUE = 

; 40 1 | ROUTINE FUNCTION 

3 tg : Save away the given descriptor as the current value of backslash. 
; 444 1 | INPUTS 

3 445 1! 

: a : } DESC - points to a descriptor to be saved as \ 

3 48 1 { IMPLICIT OUTPUT 

: 50 1! & copy of the given descriptor is constructed out of permanent memory. 
: ; 23 : H The DEFINE table is modified to include a new entry for %CURVAL. 
: 3340 2g "BEGIN 

; 1 54 

: ¢ 32 — $c_cop ! Points t f DESC 

; esc_copy, ! Points to a copy o ‘ 

3 3344 3§ dummy, m ! Third poreneter for message vectors 

3; 3345 58 ! (not used here) 

3; 3346 59 name, ' Point to name ZCURVAL 

: rtf $9 symid_list; ! Points to a symid List. 

: 3349 6 !¢ the descriptor. 

|B SB Sacer sats took ete Sr ear 

3 nget_sym desc, symid_list, dummy); 

3 326 65 dbgsncopy_desc (.desc, desc Copy. Gunny): 

3 $27 re dbg$sta_lock_symid (.symid_Tist); 

: 3355 468 ! Save away the copy. 

; $29 ry 44 } The name must be allocated out of permanent memory. 

: 335 471 name = dbgsget memory (2): 

3; 3359 47 ch$move (8, UPCIT BYTE (ZASCIC "ZCURVAL'), .name); 

3 300 th dbg$def_sym_add(.name, define_value, .desc_copy, TRUE, dummy, dummy); 
; 3360 475 RETURN; 

3; 336 76=«(«W1 END; 


-PSECT DBGSPLIT,.NOWRT, SHR, PIC.0 
4C 41 56 52 55 43 25 O7 00120 P.ACE: .ASCII <7>\ZCURVAL\ 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


007¢ 00000 -ENTRY DOSSSANE VAL. Save R2,R3,R4,R5,R6 
SE 0c C2 0000 SUBL2 #12, SP 
08 AE 9F 000 PUSHAB DUMMY 
4 AE 9F PUSHAB SYMID_LIST 
4 AC 0D PUSHL pest 
000000006 00 05 FB 3 CALLS #5, DBGSNGET_SYMID 
08 AE OF 1 PUSHAB DUMMY 


vOs-600" 


; Routine Size: 


000000006 00 
000000006 00 
000000006 00 


66 00000000" EF 


87 bytes, 


EA8D CF 


Routine Base: 


68 AE 9F 
7 RR 

ie 

8 AE : 

C AE OF 

01 oD 

10 AE 0D 
8 

06 FB 

04 


DBGSCODE + 154D 


Soooooooooo 
jolelolelololololeolo) 


m 13 
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Sep-1 
Sep-1 


be VBii8 


g AX-11 Bliss-32 V4.0-7 oss. 
DEBUG. SRC DaGber INE .B32;1 


535.COPY 

5 DBGSNCOPY_DESC 

me" pacssrA _LOCK_SYMID 
» DBGSGET_MEMORY 

Re. NAME 

#8, P.ACE, (NAME) 
ure 


mati 


:3 
24 
D 
D 
a 
Th) 


NAME 
#6, DBGSDEF_SYM_ADD 


95 
29 (21) 


3476 | 


1SBen-1984 93:18:28 HONadG. Shi SSecbed tne 033.1 


a pata ROUTINE DBGSWILDCARD_NAME_MATCH (NAME1, NAME2) = 
8 i Functional Description 
i Determines whether the ei les arded name in NAME1 matches the name 
i in NAME2. Asterisk is the w {técard character, and it may match any 
£9 ¢ A ay fF zero or more characters. 
if 4 i Inputs 
7 5 i NAME 1 - points ne 4 putes string containing a name. The 
74 i name AY. ude one or more * (the wildcard char) 
Ne NAME 2 - points to a yt string containing a name. 
7g i Outputs 
% 90 i The return value is one of: 
491 i TRUE = the names do match 
381 rh & FALSE = the names do not match 
8 
388 
384 
385 
86 
7 
88 


01 ! Points to * in NAME1 


! Length to asterisk 


opet ap 
3S 


oO 
= 


ASTER PTR, 
! Remaining Length of first string 
} pone intng senate of second string 
nto 


r 
m 
z22 
oe 

™ =—— 
= 
ae 
o 


WAWWAWAWNWWW 


39 
39 1_PfR, ! Pointer AME1 string 
394 NAM PIR, ! Pointer into NAME2 strin 
395 NEW_NAME1: REF VECTOR BYTES. ' Padded copy of €1 
396 NEW “WANED: REF VECTOR BYTE], ! Padded copy of NAME2 
397 POOLID, ‘ Memory “Pool id 
398 Al gVAtuE ' Return value 
3399 PTR; i Points to substring that we find 
01 Copy names into new area padded on left and right. 
40 POOLID = DBGSPUSH_TEMPMEM(); 
W_NAME1 = DBGSGET_TEMPMEM ((5+.NAME1(0])/4); 
CHSAOVE et mane ihe 0J,~NAME1C1], NEW_NAME1(C1)); 
NEU” “NAME 1+. NAME1C0) = 0; 
14); 


NAME 2 DBGSGET_TEMPMEM ((5+.NAME2[0))/ 
CHSAOVE ( NAME ZCO 03, 7NAME2E1), NEW.NAME2C13); 


NEUCNARES 
NEW"NAMESE1*.NAME2L0I) = 0; 
Initialize lengths, pointers, and flags. 


LENGTH ~ e+. NAME1(0); 
NEW nant l 

NOE TRO. ; 26: “NAME 2C0 

NAME2_PTR = .NEW_NAME2; 


FU PVPUPUDULUSUSUSUSU PUSSIES SUSI STITIIITITT 


WIAILPOPIPINIPONININDNIDYD 4 9 OO I SK OOOOOOCOCO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
494 BEGIN 
95 
38 MAP 
49 NAME? : REF VECTOR YTE), 
98 NAME2 : REF VECTOR YTEJ; 
499 
500 LOCAL 


Ea = 
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VSSa~o ne wunm—ooe 
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E 
RET_VALUE = TRUE? 
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Sep-1984 00:15:32 YAX=11 BLigs-32_v4.0-74 Page 107 
lero 19:18:28 —Eoeeuc. secioaener Ine 1092, 1 29° (32) 


Loop through the portions of the string between asterisks. 
WHILE .LENGTH1 GTR 0 DO 
BEGIN 


If we have exhausted the second string, return false. 
if .LENGTH2 LEQ 0 
THEN 


ET VA LUE = FALSE; 
KITLO P; 


Obtain pointer to first asterisk. 


ASTER PTR = CHSFIND_CH (.LENGTH1, .NAME1_PTR, ‘#'); 
1 ei -ASTER_ PTR EQL 07 


AST ERP -NAME 1 PT TR + .LENGTH1; 
LENGTH = TASTER. PTR = 7NAME1_PTR; 


Look for the next match. 


SUBSTR_PTR = CHSFIND_SUB ( eS ! Context length 
oN @ (Pir, i Context pointer 
TENG ! Pattern length 
“HAMEL. PTR): ! Pattern pointer 
genes cher EQL 0 


BEGIN 
RET VANE © FALSE; 
EXITLOOP 


LENGTH! = .LENGTH? = (1 + .LENGTH); 

NAME 1 -ASTER_PTR + 1; 

LENGTA2 = SLENGTH2” - (LENGTH + ,SUBSTR_PTR - .NAME2_PTR); 
NAME2_PTR = .SUBST “pri + .LENGTH; 


vo 
“4 
i= 


If we have exactly matched the second string, return true. 
IF .LENGTH2 NEQ 0 
RET_VALUE = FALSE; 
DBGSPOP_TEMPMEM (.POOLID); 
TRET_VALUE; 


RETURN 
END; ' dbgSaildcard. name_match 


=PIPIMPINPIPININIPINPINIW NWN & BNW NNN NANI B&B EB Iinononon 


OFFC 00000 ENTRY DBGSWILDCARD_NAME_MATCH, Save R2,R3,R4,R5,- ; 3477. 
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1b-Se -1984 00:15 AX-11 Bliss-32 v4.0-74 Page 108. { 

12-808-13 4 90:18 28 DEBUG. SRC IDBGDEF INE .83 31 . (22) \ 

»R7,R 10,R11 : ; 

000000006 00 20 FB 000 3 CALLS i. 06 paesPU si TeAP PMEM + 3515 

8 DO 000 MOVL ; 

9 04 aC p 0 MOVL NAME 00 + 3517. 

0 69 9A 0001 MOV ZBL Ro 5 “ao : 

0 5 C0 91 ADDL2 #5, ; 

0 4 C¢7 00016 DIVL3 #4, RO, <(SP) : 

000000006 09 1 FB OO1A CALLS #1, DBGSGET_TEMPMEM F 

0 pO 00021 MOVL 0; NEW_NAME1 : | 

50 69 9A 00024 MOVZBL (R9), R + 3518) 

01 «A? 01 Ad 50 28 00027 MOVC RO yl AR 1 (NEW_NAME 1) : | 
67 94 00020 CLRB AME 1) + 3519) 

50 69 9A 0002F MOVZBL Mm : 3520) 

01 A04? 94 00032 CLRB icy. NAME 1] : | 

58 08 AC DO 00036 MOVL NAME2, RB” + 3522 

50 68 9A 0003A MOVZBL (R8). RO : | 

50 05 c0 00030 ADDL ; ; 

000000006 00 01 FB 00044 CALLS > DBescey TEMPMEM : i 

56 50 00 00048 OVL A, NEW NAME : | i 

50 68 9A 0004E MOVZBL (R : 3523. i 

01 A6 01 AB 50 ee 00051 MOVC3 RO "488 1 (NEW_NAME 2) ; | 
66 94 00057 CLRB. = (NEW_NAME2) + 3524. 

50 68 9A 00059 MOVZBL (R8)*~ NRO : 3525 

01 A046 94 0005¢ LRB—s-: 1 (ROS CNEW_NAME2] F 

54 69 9A 90069 MOVZBL (R9), LENGTH1 + 3529 

54 02 CO 0006 DL2. #2, L : | 

59 68 9A 00066 MOVZBL (RB). LENGTH2 ; 3531) 

59 02 CO 00069 ADDL2 #2, LENGTH2 : ; 

55 56 00 0006C MOVL NEW NAMED” NAME2_PTR : 3238 | : 

5B 01 D0 0006F MOVL #1, ~RET_VALUE : 353 ; 

54 b5 00072 1$: TSTL LENGTH : 3537) : 

49 15 00074 BLEG : i 

59 D5 00076 TSTL ENGTH2 > 3542 | F 

24 15 00078 BLEO ; ; 

67 54 2A 3A OO07A LOCC #42, LENGTH1, (NAME1_PTR) : 3551 | 
02 12 9007E BNEQ 2$ ; i 

51 D4 00080 CLRL sR ; ; 

SA 51 04 00082 2s: MOVL R11, ASTER_PTR : : 

04 12 0008 BNEQ 3$ > 3552. : 

SA 57 54 C1 00087 wets LENGTH1, NAME1_PTR, ASTER_PTR 3: 3554 ; 
56 SA 57 c3 0088 3$: SUBL3 NAME1 PTR, ASTER PTR, LENGT : 3555 : 
59 67 56 9 0008F MATCHC LENGTA, taane _PTR), LENGTH2, (NAME 2_PTR) 3; 3562 i 
03 1 0094 BEQL §64$ F i 

53 6 pd 00096 MOVL. LENGTH, R3 : : 

53 56 C2 00099 4$: SUBL2 LENGTH. R3 ; 

04 12 0009C BNEQ : 3563) ‘ 

58 D4 009 5$: CLRL —-RET_VALUE : 3566 | ‘ 

1D 11 OOOA BRB .* > 3565 ‘ 

50 54 56 C3 O00A2 68: SUBL3 LENGTH, LENGTH1, RO > 3570 | 
54 FF AO 9E OO0A6 MOVAB <=1(RO), oon i" TH1 3 | ; 

57 01 AA 9E OOAA MOV 1(R10), PTR ; 3571 | : 

50 56 53 C1 00 AE ADDL3 SUBSTR. PIR. TLENGIN, RO : 3572. ‘ 
50 55 50 C3 008 SUBL3. RO, NAME2 PTR : 
59 50 ¢O 00086 ADDL2 RO. LENG aay ; 

55 53 56 ¢1 00089 ADDL3 LENGTH, SUBSTR_PTR, NAME2_PTR : 3573 | 
B83 11 000BD BRB 1$ ; 3537 


REE eee ee ce Tee eee 


GDEF INE 16-Sep-1984 00:15:3 AX-11 Bliss- 
Mitaett 12-808-1 382 90: 18i2 DEBUG. SRC IDB 
59 D5 OBF 7$: TSTL NGTH2 
3 1 o¢ BEQL 
d4 000C CLRL = RET_VALUE 
B DD 000C5 8s PUSHL 
000000006 90 or FB 00¢7 CALLS DaGSPOP TEMPMEM 
0 8 DO 000CE MOVL Ref » RO 
04 00001 RET 


; Routine Size: 210 bytes, Routine Base: DBGSCODE + 15A4 
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4. 
I 
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14 
DBGDEF INE 16-$ 1984 00:15:3 AX-11 Bliss-32 V4.0-74 
voe-000 14-Sep-19 4 1 lesa DEBUG. SRC DBGDEF INE .83 31 


3 5 ! ROUTINE dump_entry (sym.ptr, addr_flag, type_flag, message_vect) = 

: ° Routine Description 

; 2 5 : This routine dumps an entry in a define List. 

3 291 i Inputs 

; 298 1 i sym_ptr - A pointer to the entry. 

; 594 1! addr_flag - says to display the thing that the symbol is bound to 
3 595 1! type_flag - says to display the kind of defined symbol 

3 239 : } message_vect - An error message vector 

; 398 ' Outputs 

; 600 1} The entry is displayed at the terminal. 

; ret : A status code is returned. 

; 60 "BEGIN 

: 3494 3605 MAP 

: 606 sym_ptr: REF define$entry; 

 3c99 3608 LOCAL 

; 3498 609 ; sym_kind: BYTE; ! Wolds code for kind of symbol 

; $200 a1) 2 Print the symbol name. 

; $208 3618 $ dbg$print (UPLIT BYTE (ZASCIC ‘defined ')); 

3; 350 614 2 dbg$print (.sym_ptr Cdef$a_name]); 

; $20¢ ei? § dbg$newline(); 

; $209 eit 2 Print the value. 

: 3508 3619 3 if .addr_flag 

; 3299 3054 : THEN EGIN 

; 334) 3692 dbg$print (UPLIT BYTE (ZASCIC ' bound to: ')); . 

; $218 4 ? CASE .sym_ptr Cdef$b_kind] FROM define_lowest TO define_highest OF 
: 3514 36 5 Cdefine_addiess] : 

3816 657 aan 

; 219 6 3 4 addr_exp_desc : + >t eens 

3 218 ? R : string_desc : dbg$stg_desc; 

; 260 oe) ; addr_exp_desc = .sym_ptr (Cdef$a_value); 

: 528 o38 ° Case on kind of descriptor. 

; 25% 63> 4 CASE .addr_exp_desc Cdbgsb_dhdr_ typed FROM dbg$k_min_descr_type 
: : 5 $38 ? ty dbg$k_max_descr_type 
: $F ce sr 

: 3529 640 4 ! Implementation level 3 Primary Descriptors. 

3; 35350 641 4 : 
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; ek 4 ante opt inary desc 13 

3 er 2 dbgSprint_ Tdent tier (.addr_exp_desc); 

3 ¢ oh? 2 } Implementation Level 3 volatile value descriptors 
; 2 $03 4 Cdbg$k_v_value_desc] : 

; 35 ote BEGIN 

; 3538 64 LOCAL 

3 272 220 val_desc: REF dbg$valdesc; 

; 3541 026 : ! Turn the volatile value descriptor into an ordinary 
3 2¢$ th value descriptor and then print it. 

3 3544 655 if NOT dbg$ncopy_desc (.addr_exp_desc, val_desc, 
; 3545 656 5 -message_vect, FALSE) 

3 en8 657 5§ THEN 

3; 354 658 5 RETURN sts$k glover 

; 3548 659 5 val aGese dbasb_ dfidr =type} = dbg$k_value_desc; 
3; 3549 660 5 val_ peer Po 9 ste “value_valueQ] = 

; 3550 661 5 “val _descldbg$l_ value pointer]; 

; 3551 66 2 val -descCdbgst. value_pointer] = 

3 226 66 descldb Pe sValue. value0); 

3 355 sees 2 dbgsprint” value 

3 3554 665 boson. radixtabg$b_ radix_output_over], 
3; 3555 066 5 -dbg$gl_sign_ ‘les, false); 

3 3228 667 4 END; 

: 3557 668 4 

; 3558 669 4 ! We do not expect any other kind of descriptor. 
$ $228 670 4 i 

: 3560 671 4 CINRANGE, pede PB. 

3; 3561 672 4 $dbg_error ( DBGDEF INE \DBGSDUMP_ DEFINE"); 

3 $208 673 4 

3; 356 674 & TES; 

3 Te 3675 END; 

3; 3565 676 

3; 3566 677 Cdefine_command, 

3; 3567 678 define_parameter, 

; 35568 679 define_procedure, 

3; 3569 680 define_ stringd : 

3; 3570 681 4 BEGIN ; 

3; 3571 682 4 dbg$print ey ott (ZASCIC *"'*)); 

3 276 36835 4 dbg$print ( syne? def$a_value)); 

3 357 684 4 abgspr int (UPLIT BYTE (ZASTIC ''*)5; 

3: 3574 685 

3; 3575 686 

3; 3576 687 Cdefine_value) : 

3; 3577 8 4 

3; 3578 89 4 dbg$print_value (.sym pertde te value), 

3 3579 690 4 g$gb_radixCdbg$b_radix_output_over], 
; 3580 691 4 -dbg$gl-sign_flag, false): 

; 3581 69 END; 

$ 286 69 

: 358 694 CINRANGE, OUTRANG GE) : 

$ 44 o22 $DBG_ERROR(' DBGDEF INE\DUMP_ ENTRY); 

3 286 $35 TES 

; 358 698 dbg$newl inet); 
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704 

705 BEGIN 

70 Sogzer int (UPLIT BYTE (ZASCIC ° *)); 

70 CASE :sym_ptr defSb_kind] FROM define_lowest TO define_highest OF 


SNS NSS SSNS 
DONAOULSWN "OOO NOULS WN OOONO 


MRoNONONOPONONUN) 2 2 OO 


define address] 


dbgSprint ( 
Cdetine conn 


PLIT BYTE (ZASCIC ‘was defined /address')): 


and) : 
dbgSprint (UPLIT BYTE (ZASCIC ‘was defined /command')); 


Cdefine_param 


eter] : 
qoaSerine (up IT BYTE (ZASCIC ‘parameter to DEBUG command procedure')); 
u : 
gSprint (UPLIT BYTE (ZASCIC ‘was defined /procedure')); 
ring] : 
bgSprint CUPLIT BYTE (ZASCIC ‘was defined /string')); 


Cdefine_ value 
db 


LINRANGE, OUTRANGE 


$DBG_ERROR ( 
dbgsneul ine(); 
END; 


99 END; 
i} : Print the kind of symbol. 
7 if_.type_fla 
" tates 
1 


RETURN sts$k_ success, 
END; ! of dunp_entry 


"DBGDEF INE\DUMP_ENTRY'); 


Sprint (UPLIT BYTE (ZASCIC ‘was defined /value’)); 


PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
20 64 65 6E 69 66 65 64 08 00128 P.ACF: .ASCII <8>\defined \ 
20 3A 6F 7% 20 64 6€ 75 6F 62 0 20 29 20 v3 00131 P.ACG: . ASCII <14>\ bound to: \ 
24 47 42 44 5C 45 4E 49 46 45 44 47 42 44 19 00140 P.ACH: ASCII <25>\DBGDEF INE\<92>\DBGSDUMP_DEF INE\ 
_— eee A OU OR Gite Pach ween <p 
5 0: 0015C P.ACJ: ASCII <1>\" 
50 4D 55 44 SC 45 4E 49 46 45 44 47 42 6 16 O13 P.ACK: .ASCII <20>\DBGDEF INE\<92>\DUMP_ENTRY\ 
rN 6 39 04 O13 P.ACL: .ASCII <4>\ \ 
61 2F 20 64 65 GE 69 66 65 6% 3 1 27 14 0128 PLAC: “ASCII <20>\was defined /address\ 
63 2F 20 64 65 6€ 69 66 65 $ ee r3 : ti 16 O18 P.ACN: .ASCII <20>\was defined /command\ 
44 20 6F 74 20 72 65 74 65 6p 1 ’3 } 5 St 1A2 P.ACO: .ASCII \$parameter to DEBUG command procedure\ 
72 70 20 64 6€ 61 6D 6D of $3 g 4? 23 4 45 181 
70 2F 20 64 65 6E 69 ¢ $3 r 20 6 i i 1¢7 P.ACP: .ASCII <22>\was defined /procedure\ 
73 2F 20 64 65 6E& 69 66 is 64 24 : 61 Mi 43 i P.ACQ: .ASCII <19>\was defined /string\ 
76 2F 20 66 65 6E 69 66 65 64 $5 ‘ $1 7? (12 ifD P.ACR: .ASCII <18>\was defined /value\ 
65 75 6C 61 00201 


Pete Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be 


vou~600" 


1 
1 

50 40 55 44 SC 45 4E 49 46 45 44 47 42 464 14 05 P. 
59 52 54 4E 45 SF 0542 


0087 


06 
0087 
000E 


9 000000006 
° 00000006 
00000006 
G 
38 444444 4g 
54 00000000° 
5 
65 
52 04 
08 
3 
03 08 
09 
65 
01 10 
87 
87 
36 
53 OC 
8F 02 
2A 
1A 
1A 
18 
? 00028362 


-$ 
-$ 
CS: .ASCII 


«PSECT 
O3FC 00000 DUMP_ENTRY: 
WORD 
0 9E 0000 MOVAB 
Sa i 
soy BU 
0 9 4 VAB 
FF 25 00 MOV 
0 C2 000 SUBL 
54 DD 0002F PUSHL 
01 FB B00 1 CALLS 
AC 00 it MOVL 
A2 0D 00038 PUSHL 
01 FB 00038 CALLS 
00 FB oor CALLS 
AC gs 8 4) LBS 
0OBA 31 00045 RW 
AG YF 00048 18: PUSHAB 
01 FB 00048 CALLS 
Ag 8F sie CASEB 
001 00055 2$ WORD 
0098 00058 
AS 9F 00061 3$ PUSHAB 
27 11 00064 RB 
7 DO 00066 4$: OVL 
AS 8F OO06A CASEB 
OO1A 00070 5$ - WORD 
QO1A 00078 
QO1A 00080 
OO1A 00088 
AS 9F OO08A 4 PUSHAB 
ay eae 
5 Fe Sie 
93 0098 RB 
3 OO9A 


4 
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A 


AX-11 Bl igses2 v4.0 
DEBUG. SRC 


DBGSCODE,NOWRT, SHR, PIC,0 


Save R2 “tps R5,R6,R7,R8B,RI 
DBGSGL SIGN_FLAG. R8 


ACF 
#i6, §P 
R4 
#1, DBGSPRINT 
SYM_PTR, R2 
(R2) 


8 
#1, DBGSPRINT 
#0, DBGSNEWL INE 
ADDR_FLAG, 1$ 
15$ 
P.ACG 
#1, DBGSPRINT 

6(R2), #1, 

$-2$,- 

1$-2$, - 

1$-2$,- 

1$-2$,- 

2$-2$,- 

1$-2$,- 

$- 

A 

( ADDR_EXP_DESC 

A EXP OOESC)T #120, #12 


ee ee NR AN 8 ep rere 
° 


06 
#3, LIBSSIGNAL 
ADDR_EXP_DESC 


DBGDEF INE. 83 31 
<20>\DBGDEF INE\<92>\DUMP_ENTRY\ 
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3643 
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g AX-11 Bliss-32 Pe gt 
DEBUG. SRC JDBGDEF INE .B32;1 


000000006 00 1 Fe 009 CALLS #1, DBGSPRINT_IDENTIFIER 
A 1 A RB 4§$ 
E D4 000A5 98: CLRL = = ( SP) 
19 AC po OA PUSHL MESSAGE_VECT 
0 ag 6 AA PUSHAB VAL_DEST 
DD OO0AD PUSHL ADDR_EXP_DESC 
000000006 00 4 Ff AF CALLS #4, BResACOPY DESC 
4 0 € 6 86 BLBS ; 
0 04 DO 0008 MOVL 4, RO 
04 0008C RET 
50 £ p 08D 10$:  MOVL VAL Dest RO 
92 A 7A soa o¢ MOVE #122 (RQ) 
A 18 AO D ¢ MOVL ¢4 (RO). 32(RO) 
18 AO 20 AO 9E OOOCA MOVAB 32(RO), 24(RO) 
7E D4 OOOCE CLRL =(SP) 
68 DD 00001 PUSHL DBGS$GL_SIGN FLAG 
7E 9 9a 00003 MOVZBL DBG$GB-RADIR+2, -(SP) 
0 DD 9006 R9 
1E 11 000D BRB 13$ 
32 Aad OF OOODA 11$:  PUSHAB P.ACI 
65 01 FB 000DD CALLS #1, DBGSPRINT 
0c A2 DD OO0E0 PUSHL  12(R2) 
65 01 FB O00E CALLS #1, DBGSPRINT 
34 AG OF OO0ES PUSHAB P. 
65 01 FB 000E9 CALLS #1, DBGSPRINT 
11 11 OO0EC BRB 14$ 
7E D4 OOOEE 128: CLRL = SP) 
68 DD 000FO PUSHL DBGS$GL_SIGN_FLAG 
7E 69 9A 000F2 MOVZBL BBGSGB_RADIN« » =(SP) 
0c A2 OD O00F 5 PUSHL  12(R2) 

000000006 00 04 FB OO0F8 138: CALLS #4, DBGSPRINT_VALUE 
66 00 FB O00FF 14$: CALLS #0, DBGSNEWLINE 
4F Oc AC £9 00102 15$:  BLBC TYPE FLAG, 26$ 

4B AG 9F 00106 PUSHAB P.ACC 
65 01 FB 00109 CALLS #1, DBGSPRINT 
06 01 10  A2 8F 0010C CASEB 16(R2), #1, #6 
0034 002€ 0024 001F 00111 16$ <WORD 18$-16$,- 
000€ 0029 003A 00119 19$-16$.- 
1$-16$.- 
g$-16$.- 
$-16$.- 
20$-168,~ 
17$-16$ 
OODD C4 OF Ore 17$:  PUSHAB P.ACS 
1 0D 133 PUSHL #i 
00028362 8F DD 00125 PUSHL #164706 
7 03 FB 00128 CALLS a3 LIBSSIGNAL 
11 001 BRB 25§ 
50 AS 9F 00130 18 PUSHAB P.ACM 
1A 11 001 BRB 24$ 
65 Ad 9F 00135 198 PUSHAB P.ACN 
15 11 00138 BRB 24$ 
7A Aa OOF 1 A 208 PUSHAB P.ACO 
10 11 00130 BRB 24$ 
009F ca 9F 0013F 21$:  PUSHAB P.ACP 
A 11 O143 BRB 24$ 
0086 C4 9F 00145 22$:  PUSHAB P.ACQ 
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13-308- 1984 Morleias DEBUG. SRC ]DBGDEF 
ROUTINE free_entry (sym_ptr, message_vect) = 


i Routine Description 


This routine frees up the space occupied by the define entry pointed 
to by sym_ptr. 


' 
' 
i 
i 
: Inputs 
i sym ptr - Points to an entry in the define List 
mesSage_vect = An error message vector 
; Outputs 
i A condition code which is one of: 
; STSSK_SUCCESS - Success. 
STSSK_SEVERE - Failure. An error message vector is constructed. 
"BEGIN 
MAP 
sym_ptr : REF defineSentry; 
LOCAL 
symid_list; ! Points to a symid list 


Free up the space taken up by the name. 

dbg$rel_memory (.sym_ptrldef$a_name)); 

} Free up the space taken up by the value. 

CASE ,gyn_ptridefte hind? FROM define_lowest TO define_highest OF 


' Addresses are stored as an address expression descriptor. 

! We free up the space occupied by the descriptor, and depending 
! on the kind of descriptor, free up any space occupied by 
auxiliary primary descriptors. 


idefine_address) : 
BEGT 


IF dbg$nget_symid (.sym_ptr(def$a_valuel], 
symid_list, .message_vect) 


THEN 
dbg$sta_unlock_symid (.symid_list); 
IF NOT dbg$nfree_desc (.sym_ptr(def$a_value], .message_vect) 


N 
RETURN sts$k_severe; 


' For the four cases below, the value is stored as a counted 
string, so we just free up the storage. 


def ine_command, 


define_parameter, 
define_procedure, 


0036 


1 
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define_string] : 
dbg$rel _memory (.sym_ptridef$a_value]); 


: pater are stored in the form of Language-specific 

! descriptors, so we call the free_desc routine that vectors on 
! the Language and calls the appropriate routine to free up 

the descriptor. 


{define value) : 


IF dbg$nget_symid (.sym_ptr(def$a_valuel, 
symid_list, .message_vect) 


THEN 
dbg$sta_unlock girnie ‘. gt, List); 
A, NOT dbg$ifree_desc (.sym_ptridef$a_value], .message_vect) 


* RETURN sts$k_severe; 


CINRANGE ,OUTRAN ANGE 3: 
$DBG_ERROR( *DBGDEF INE\FREE_ENTRY"); 


TES; 


RETURN sts$k_success; 


45 45 52 46 SC 45 4E 49 46 $3 44 47 42 rf: 


! free_entry 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
14 OO21A P.ACT: .ASCII <20>\DBGDEF INE\<92>\FREE_ENTRY\ 
52 54 4E 45 SF 00229 


.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
001C 00000 FREE_ENTRY: 
WORD 


Save R2,R3.R4 
54 000000006 00 9 00002 MOVAB DBGSREL MEMORY, RG 
53 000000006 00 9€ 00009 MOVAB DBGSNGET_SYMID; R3 
5¢ 04 C2 0001 SUBL2 #4. S 
04 AC OD 01 MOVL SYM_PTR, R2 
08 Ae DD 0001 PUSHL 
4 01 FB OOOIA CALLS peri _MEMORY 
1 10 Ae BF 00010 EASES To(RD). wis" a6 
0036 002 0022 18: WORD $-18,5 
0036 O0SE 002A 4$-18.- 
4$-18.- 
48-18.- 
$$-18.- 
48-18; - 
00000000" EF 9F 00030 28: PUSHAB Pract 
1 bb 00086 PUSHL ti 


3806 


OBE RANE 


3; Routine Size: 


144 bytes, 


000000006 


000000006 


000000006 


Routine 


M14 


1¢- Sep- 
14- abep- 
00028362 ef DD 
ii 
45 1 
8 AC pp 047 3$: 
EM $s 
63 g 4 034 
19 E 82 
20 11 000 $ 
OC Ad DD 00058 4$: 
64 § 4 058 
7 iF 
68 AC 3 5$: 
4 A F 0006 
OC A2 OD Boog 
63 03 FB 0006 
09 50 €9 0006C 
E OD OOO6F 6$ 
00 1 FB 00071 
08 AC ODD 00078 7$ 
OC A2 DD 00078 
00 0 4 ot 
04 50 €8 0008 
50 04 00 00088 
04 00088 
50 01 DO 0008C 8$ 
04 0008F 


Base: DBGSCODE + 17CF 


1986 P2H18i2 


AX-11 Bliss-32 V4.0-7 


ay° 64706 
(T8SS1GNAL 
messes vECT 


PUSHAB Wits LIST 


PUSHL ie 

CALLS #3, DBGSNGET_SYMID 

BLBS Q. a 

BRB 

PUSHL Y 5 cR2) 

CALLS #1, DBGSREL_MEMORY 

BRB 8$ 

PUSHL MESSAGE_VECT 
PUSHAB svi p stist 

PUSHL 1gcR2y 

CALLS #3, DBGSNGET_SYMID 
LBC RO. rs 

PUSHL Svat LIST 

CALLS DaGssrA, UNLOCK_SYMID 
PUSHL Re Ssac 

PUSHL 

CALLS _ ee _DESC 

BLBS RO. X49 

MOVL #4. RO 

RET 

MOVL #1, RO 

RET 


DEBUG. SRC DaGber INE .83 31 
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: 37 13° 1 ROUTINE name_match (namel, name2) = 

; 3705 16 1 See 

; ie 1? } Functional Description 

3 re i ie: This routine is used by the SYM_ADD and SYM_FIND routines to 
; 37 18 1! determine whether a pair of DEFINEd names are the same. 
3; 3710 19 1! his is now a straightforward string match (which could be 
3; 3711 o 1} done inline), but I made it a subroutine in case the rules 
3; 371 821 1! for name matching become more complex, in which case we 
3 at : § : will only want to change the code in only one place. 

3; 3715 : 4 1! Inputs 

; a | > 2 

; 371 8 $ 73 namel = Points to a counted string for the first name. 

3 re ; : name2 - Points to a counted string for the second name. 
; 3720 829 1 ! Outputs 

3; 3721 8350 1! 

3 i § Hh ' : Returns TRUE if the names match and FALSE if they don't. 
3: 3724 338 BEGIN 

: 3725 834 

; 3726 835 P 

3; 3727 836 namel: REF VECTOR C,BYTE), 

: 3728 837 name2: REF VECTOR (,BYTEI; 

; 168 838 

: 3730 839 ! Compare lengths 

3; 3731 840 } 

: As 841 IF .mame1(0) NEQ .name2[0] 

: 37 og 

3; 3734 84 RETURN FALSE; 

3; 3735 844 

3 738 a? H Compare the actual strings 

3; 3738 847 IF NOT ch$eql (.name1(0], name1([1], .mame2[0), name2(1)) 

3 3739 848 THEN 

; 3740 849 RETURN FALSE; 

3 3741 850 

3; 374 851 RETURN TRUE; 

3; 374 852 END; ! name_match 


000¢ 00000 NAME MATCH: 


WORD Save R2,R3 ; 381 
51 04 AC DO 0000 VL NAMET, 1 ; 384 
50 08 AC DO 000 MOVL  NAME2, RO 3 
60 61 91 OOOOA (MPR (R1),, (RO) : 
16 12 000 BNEQ = 18 2 | 
53 61 9A 0000F MOVZBL (R1), R3 ; 3847 
2 69 9A 00018 MOVZBL (RO), R2 : 
52 00 or A or 2h 2? 29813 CMPCS R3, (RI), #0, RZ, 1(RO) F | 
4 12 0001D BNEQ = 1$ | 
50 81 6 OoolF MOVL = #1, RO ; 3851. 
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15 
18-Sep-1984 00:15:32 YAX=11 BLigs-32 v4.0-74 Page 121 
Ve-Sep-1984 12:16:48 — EDgaUG. Ske SDBGbEF INE 1699; 1 79° (28) 


GLOBAL ROUTINE dbg$read_key_info (input_desc, result_desc, message_vect) = 
i Functional Description 


Reads a string from the DEFINE/KEY command. The gtrins will be 
any Length of alphanumeric characters, including $ and _. 

The input — descriptor is updated beyond the ty ey that 
is 2 Space is allocated for a counted string to hold the 
result. 


Inputs 


input_desc =- A pointer to a string descriptor with the input. 
result_desc - A pointer to a string descriptor with the result. 
message_vect - A pointer to an error message vector. 


Outputs 
Space is allocated for a counted string to hold the result. 
u 


A pointer to this counted string is returned in result_addr. 
One of the following values is returned: 


768 sts$k_success - Success code. _ 

769 sts$k_severe - If input descriptor has nothing in it to 
770 return. 

771 -- 

77 BEGIN 

77 

774 P 

775 input_desc : REF BLOCK C,BYTEJ, 

re resu(f_desc : REF BLOCK C,BYTEI; 

778 LOCAL 

779 char, Holds a character in the input stream 


1 
count, i Count of characters in the name 
pointer, *‘ Pointer into the input stream 
result : REF VECTORC,BYTE); ! Holds the result 


Check for exhausted input. 
if .input_desc Cdsc$w_length) EQ. 0 
THEN 

BEGIN 


emessage_vect = dbg$nmake_arg_vect (dbg$_needmore) ; 
—— s€s$k_severe; 


LAA AINA NINA AIAN WAI.NIANIAIAININ ANNAN ANNO g 

SNS SSNS SNS 

s $ AAEM NAUTIUITY 5 a a? at ee 

w —"OVDONAOULSWN-OVOOnOu 

AAA AIAI AAAI AAAI ANIA WINANS 
C9 09 CO CD: 

SAAAAAAPAAASEMMAMIVING 

ets.) VEWN—"OOONOULSW 


: Read past leading blanks. 
WHILE TRUE DO 
BEGIN 
char = ch$rchar <, SApye Goes Cdsc$a_pointer]); 
If .char NEQ dbg$k_blank 
AND .char NEQ dbg$k_tab 


N 
EXITLOOP; 


€0 G9 C9 Od Gd GO GO CO C0 Od G0 GD G0 GO Cd Gd CO G9 Co Gd GO. GO 
Ss 2 OOOOH. 0.099909 SAIN II NIN 
Ye) WN 9 ODNOULS WN" O OONOUSWN—O 
WIWINIWIAI IR OPOPOPOPU WII IRON PONUPONUPONUPOPURNUNONINDD 3 2 2 
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; 380 910 input_desc ([dsc$a_pointer] = ch$plu input_desc Cdsc$a_pointer], 1); 
: rite $e prgutdesc Eaechatenethe 2 input dese CascSw. Lengths ae 
: 3805 91 : 

: 9] Bie } Check for exhausted input again. 

: 3808 218 if .input_desc Cdsc$w length] EQ. 0 

; 3809 91 THEN « a 

; 3810 318 BEGIN 

; 3811 91 message _vect = dbg$nmake_arg_vect (dbg$_needmore); 

: aig > 9 = sts$k_severe; 

: 3814 9 é : 

; 3815 9 ! Initialize the count to zero and the pointer to point to the 
: 318 , : next character in the input stream. 

; 3818 926 count = 0; 

; S38 i i pointer = .input_desc Cdsc$a_pointer]; \ : 
; B9¢ ; 3 Read until we hit a character that cannot be part of the string. 
: 33 : 931 WHILE TRUE DO 

3 3824 3 ; BEGIN 

: $65¢ 937 char = ch$rchar (.pointer); 

; $655 He Accept alphanumerics, $, and _. 

: 3809 937 if (.char GEQ 'A’ AND .char LEQ 'Z") OR 

; 3830 938 (.char GEQ ‘a’ AND .char LEQ 'z"') OR 

3 $83! 939 (.char GEQ "0° AND .char LEQ '9") OR 

; $e38 $oc9 ; ; (cher EQL *$") OR (.char EQL '_') 

: 3834 3948 4 BEGIN 

3; 3835 943 4 count = .count + 1; 

; ted Bee : pernter = ch$plus (.pointer, 1); 

: 3838 3946 ; ELSE 

: az ot ps ett OOr: 

> 3841 3909 5 ’ 

: sa08 Seas 2 Check for no characters read. 

; 38464 3952 IF count EQL 0 

; 3846 3982 BEGIN 

3; 3847 3955 -message_vect = dbg$nmake_arg_vect (dbg$_needmore) ; 

: a8 3328 ae rune sts$k_severe; 

: 3850 958 ; 

; Be 223 Allocate space for the result. 

: 338 Hd result = dbg$get_tempmem (1+(1+.count)/4); 

: tH 368 Fill in the result, translating lower case to upper case. 

; Bap 965 result_desc Cdsc$w_length] = .count; 

; 3858 966 pointer = result(0J; 
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Ve-Sep-1986 fo:10:48 — EoeeuG. sReIDBGDEF INE 699; 1 


INCR i FROM 1 TO .count DO 
BEGIN 


char = ch$rchar_a (input_desc(dsc$a_pointer)); 
«char GEQ 'a” AND .char LEQ ‘2’ 


IF 
THEN 

char = .char = ("a’ = ‘A'); 
ch$wchar_a (.char, pointer); 


result_desc Cdsc$a_pointer] = .result; 


: Ypdere the input descriptor to point past the string that was read. 
! The pointer has already ‘een advanced. 


PARA RR Le OO 
ONIN NNN NNO OO 


input_desc Cdsc$w_length] = .input_desc Cdsc$w_length] - .count; 


87 981 
874 98 RETURN sts$k_success; 
875 98 
876 984 1 END; 
OOFC 00000 -ENTRY DBGSREAD_KEY_INFO, Save R2,R3,R4,R5,R6,R7 
55 04 AC 00 00002 MOVL  INPUT_DESC, R5 
65 B5 00006 TSTW (RS) 
6A 13 00008 BEQL 108 
54 04 AS 9E OOO0A MOVAB 4(R5), R4 
53 00 84 9A OO00E 1S: MOVZBL @0(R45, CHAR 
20 53 01 0001 CMPL CHAR, #32 
05 13 0001 BEQL 2$ 
09 53 90017 CMPL HAR, #9 
06 12 OOO1A BNEG $ 
64 D6 OO0IC 2$ INCL  (R4) 
65 B87 OOOIE DECW = (RS) 
EC 11 00020 BRB 1$ 
65 8 900 2 38 TSTW CR) 
4g 13 00024 BEQL 108 
52 D4 00026 CLRL COUNT 
57 64 pd 999 8 MOVL (R4), POINTER 
53 67 A 00028 4$ MOVZBL (POINTER), CHAR 
00000041 8F 3 D1 000 : CMPL CHAR, #65 
09 19 000 BLSS § 
0000005A = 8F 3 1 99 7 CMPL CHAR. #90 
A 15 : BLEG $ 
00000061 = 8F 3 91 00040 5s CMPL CHAR, #97 
09 19 047 BLSS 6$ 
0000007A = BF 3 91 00049 CMPL CHAR, #122 
18 15 0005 BLEQ = «8S 
30 5 D1 00052 6$ CMPL GuAR. #48 
03 19 0005 BLSS $ 
39 D1 009 CMPL CHAR, #57 
OF 15 3A BLEQ $ 
24 53 1 C 7$ CMPL CHAR, #36 
09 13 00C5F BEQL $ 
0000005F BF 3 pi 00061 CMPL CHAR, #95 
06 12 00068 BNEG 9S 


vos~600" 


; Routine Size: 


DBGSOWN 
DBG$GLOBAL 
DBGSPLIT 


DBGSCODE 


: 
00028000 F 
000000006 00 1 
oc 3 0 
04 
50 01 A2 
50 04 
01 AO 
000000006 99 01 
1 08 aS 
61 5 
57 50 
56 
1E 
53 00 84 
64 
00000061 8F 53 
0000007A =aBF 3s 
53 
37 $3 
56 52 
046 = «A! 50 
65 52 
50 01 
Routine Base: DBGSCODE + 
PSECT SUMMARY 
Bytes 
13 NOVEC, WRT, 
1 VEC, WRT, 
559 NOVEC,NOWRT, 
6490 NOVEC,NOWRT, 


16-Sep-1984 00:15:3 AX-11 Bliss-32 V4.0-74 
1 =300n 138% 90:13:28 DEBUG. SRC IDBGDEF INE .B3 31 

D 6A 8S: INCL COUNT 
D 6C INCL POINTER 

1 $ BRB 4$ 
D 9$: TSTL COUNT 

1 7 BNEG 1 
DD 00074 10$:  PUSHL #164048 

F 7A CALLS #1, DBGSNMAKE_ARG_VECT 
D 0 1 MOVL RO, @MESSAGE_JECT 
D 5 MOVL #4, RO 
9 80 11$ bv 1(R2), RO 
cS 99 Dive 4, RO 

F PUSHAB 1(RO) 

FB 009 CALLS #1, DBGSGET_TEMPMEM 
DO O009A MOVL §RESULT_DESC> R1 
BO 0009E MOVW COUNT 
DO 000A1 MOVL RESULT, POINTER 
D4 000A4 CLRL oI 

11 000A6 BRB 14$ 
9A OOOA8 12$: MOVZBL @0(R4), CHAR 
D6 OOOAC INCL R4) 
D1 OO0A CMPL CHAR, #97 

19 0008 BLSS $ 
D1 00087 CMPL CHAR, #122 

14 0008 BGTR g 

C2 000C SUBL2 #32, CHAR 
90 000C3 13$:  MOVB CHAR, (POINTER)+ 
F3 000C6 14$:  AOBLEQ COUNT, I, 12$ 
D0 000A MOVL SULT, 4(R1) 
A2 OOOCE SUBW2 COUNT, (R5) 
D0 90001 MOVL » RO 
04 00004 RET 
1885 

.EXTRN LIBSSIGNAL 
Attributes 

RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
RD ;NOEXE,NOSHR, LCL. REL, CON, PIC,ALIGN(2) 
RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
RD; EXE, SHR. LCL. REL. CON. PIC.ALIGN(O) 
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Library Statistics 


ee ek le ie en Re NE, Wie | atcha ey Ah es Symbo ls ecesece Pages Processing 
$ File Total Loaded Percent Mapped Time 

: -F5225hU zouA beret en | -L32;1 18619 100g 0:01.8 
; G.0BJ STRUCDEF 32:1 32 Q 0:00.1 
; $5328 GLIB.L32; 154 1 97 0:01.9 
5 SDUASB ‘ EDEBUS: “OB; De TRECRDS <i 32:1 

FY g 0 31 8: 700.4 
5 Rites : (DEBUG. OBJ poens6-t ae: | 788 1 4 $$ 0:00.3 
; HEELS 8: (DEBUG.O0BJ JDBGGEN.L32;1 1 2 1 1 00:00.3 


; Information: 3 
; Warnings: 0 
: Errors: 0 


COMMAND QUALIFIERS 

BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=L1S$:DBGDEF INE/OBJ=OBJ$:DBGDEF INE MSRC$:DBGDEF INE/UPDATE=(ENH$:DBGDEF INE) 
6490 code + 583 data bytes 

: : 01:55.7 

; Elapsed Time: 06:41.0 

; Lines/CPU Min: 067 

; Lexemes/CPU-Min: 12426 


: poneey Used: 458 pages 
; Compilation Complete 
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